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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


SYNC 

NETWORKS. THIS DC WILL PROVI 

TO DETECT FAILURES TO THE COMPUTER EQUIPMENT, THE COMMUNICATION 
LINK, OR THE MODEM. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOF TWARE ENV RO RONMENT 
THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE R RUNTIME SERVICES, REFER 
TO THE XXDP+ USER" S MANUAL (CHQUS?.SEQ WHERE ? IS REV. LEVEL OF 
THE MANUAL THERE IS A BRIEF SEStRIP TION OF 

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 


IN ORDER TO RUN THE DUP DCLT PROGRAM, THE FOLLOWING 
MINIMUM HARDWARE IS REQUIRED: 


- A PDP=11 CPU 
- MINIMUM OF lee WORDS OF MEMORY 
= A WORKING CLOCK 
-A wo TER MINAL 
- ANY XXDP+ SUPPORTED LOAD MEDIA 
= DUP11-DA: M7867 MODULE 
BcOsc=25- YCABLE 
BCOs=1b CABLE 
H325 Test CONNECTOR 


1.3 RELATED DOCUMENTS AND STANDARDS 


- XXDP+ ~_ S MANUAL (CHQUS?.SEQ WHERE ? IS THE REV. LEVEL OF 
THE MANUAL = “‘C' IS THE CURRENT REV.). 
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1.4 DIAGNOSTIC HIERARCY PREREQUISITES 


THE GOAL OF THE DATA COMM. LINK TEST PROGRAM IS TO TEST THE 
COMMUNICATION LINK AND THEREFORE ASSUMES THAT 

CLOCKS, DUP=11 AND THE DEVICES AT THE OTHER END OF THE LINK 
HAVE ALREADY BEEN TESTED. 


A, WORK ING CLOCK IS NOT FOUND THE PROGRAM WILL CONTINUE 
Mf OF THE PROGRAM THAT TIMES THE DEVICE WILL HANG IF THE 
DEVICE TIMES OUT. ALSO — TEVENT LOG WILL CONTAIN A ZERO EVENT 
TIME FOR ALL EVENTS LOGGED. 


IT IS NOT THE INTENTION OF A DATA COMM. LINK TEST PROGRAM TO 
TEST THE DUP-11°S, BUT TO TEST THE COMMUNICATION LINK TO 
WHICH THEY ARE CONNECTED. 


SOME OF THE DIAGNOSTICS THAT COULD BE RUN IF THE DUP-11 
LOOKS BAD: 


DZDPEXX CONFIDENCE TEST 

DZDPBXX BASIC TRANSMITTER TESTS 

DZDPCXX st perc sg, CONTROL AND INTERRUPT TEST 
DZDPDXX DATA AND FUNCTION TESTS 

DXDPBXX DECX11 MODULE 

XX= LATEST REVISION 


1.5 ASSUMPTIONS - RESTRICTIONS 


IT IS ASSUMED THAT THE COMMUNICATIONS DEVICE HAS 

BEEN TESTED tne THE PREREQUISTE DIAGNOSTICS. THE OPERATOR 
SHOULD HAVE READ THE USER DOCUMENTATION PORTION OF THE LISTING 

TO FAMILIARIZE HIMSELF WITH THE COMMANDS AND CAPABILITIES AVAILABLE 
UNDER THE DIAGNOSTIC SUPERVISOR AND DCLT. 


Hag DIAGNOSTIC DOES NOT RUN THE DUP-11 IN BIT STUFF MODE. 
IT IS ASSUMED THAT IF THE LINK WORKS IN CHAR MODE THE LINK 
WILL WORK IN BIT STUFF MODE. 


THE DUP=-11 IS NOT A DMA DEVICE AND THUS MUST RELY ON THE 
SOFTWARE FOR SERVICE. 
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2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE cpt SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 


THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC 5 oh — 
(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN ang STATE 
RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 
CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C) 
oe ERROR 


HALT 
(XXDP+ qe ONLY!) 
FOR TESTING (ALL UNITS ARE 
CONSIDERED TO be ACTIVE AT START TIME 
DROP DEACTIVATE A_UNIT 
PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 
BY THE DIAGNOSTIC = SECTION 4.0) 
1 TYPE A LiST OF ALL DEVICE INFORMATION 
LAGS TYPE THE STATE OF ALL FLAGS (See SECTION 2.3) 
FELAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOu MAY, FOR EXAMPLE, TYPE ‘'STA’’ INSTEAD OF ‘‘START'’. 


2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY ite Mee OPERATION. 
ITCHES ARE APPENDED T LEGAL COMMANDS. ALL OF ny LEGAL 

SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH, - 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD". 


SWITCH EFFECT 
/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TES 
NUMBERS EXAMPLE = /TESTS:1:5:7=1 
THIS tigt WILL CAUSE TESTS 1,5,7,8,9, 
BE L OTHER S 


/PASS:DDDDD 
/FLAGS:FLGS fa sbchiow eo D PLAGE. 


/EOP:DDDDD REPORT END OF PASS MESSAGE wre 
DDDDD PASSES ONLY. (DDDDD = 1 T 

/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SpE 
IN THE LIST. LIST EXAMPLE = /UNITS: 
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USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63) 
EXAMPLE OF SWITCH USAGE: 
START/TESTS: 1-5/PASS : 1000/E0P: 100 


THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 

EXECUTED 2) fut UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
MESSAGE L BE PRINTED AFTER EACH 100 P ASSE ES ONLY. 

SuITCH BE RECOGNIZED BY THE FIRST THREE CHARACTERS. vou MAY, 

FOR EXAMPLES TYPE ''/TES:1=5"" INSTEAD OF "'/TESTS:1 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND. 


TESTS PASS FLAGS EOP 


2.3 FLAGS 


FLAGS ARE USED TO SET a4 CERTAIN Pleas at PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL ete SET USING THE FLAGS SWITCH. Ss 
ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET wey THE 


AND ZFLAGS C 
NO COMMANDS AFFECT T T ; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


EFFECT 
HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOOP ON ERROR 

INHIBIT ALL ERROR REPORTS 

INHIBIT ALL ERROR REPORTS EXCEPT 

FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE TEST AND UNIT) 
INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO'S) 

DIRECT MESSAGES TO LINE PRINTER 

PRINT, TES EST NUMBER AS TEST EXECUTES 


UNATTENDED MODE (NO MANUAL INTERVENTION) 
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SEQ 9 


ISR INHIBIT STATISTICAL REPORTS (DOES NOT 
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 

IDR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 

EVL EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 


HAVE EVALUATION SUPPORT) 
*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 
SEE Ha XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR. INHIBIT ERROR REPORTS 
AND TYPE A "BELL" ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS :LOE : IER: BOE 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE ol SERVICES WILL PROMPT 
THE USER FOR HARDWARE erg bs a BY TYPING ‘‘CHANGE HW (L) ? 
YOU MUST ANSWER *'y"’ tote, 8 START C COMMAND UNLESS THE MHARDUARE 
INFORMATION HAS BEEN PRELOADED ae THE SETUP UTILITY (SEE 
yt ll yy ary XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS 


OF UNITS (IN DECIMAL). 


THE DUP-11 DATA COMM. LINK TEST PROGRAM WILL NOT USE MORE T 
ig He FOR THE DUP=-11 , THE HARDWARE INFORMATION REQUESTED 


# UNITS (D) ? 1<CR> 


: (L) Y_? 
Device CSR ADDRESS : (0) 160170 ? 
UP DD ss . 


REMOTE NOD 
IS THIS A MULT IPOINI NETWORK: (L) N? 


THE FULL DUPLEX QUESTION SHOULD ee ANSWERED “‘Y’* WHEN USING 
FULL DUPLEX MO DEMS,OR NULL MO OR MODEM ELIMINATORS. 
ANSWER 'N’’ FCR HALF DUPLEX MODERS. 


REMOTE NODE ITEP SHOULD BE ANSWERED *'Y’’ IF OTHER NODE 
IS RUNNING SOFTWARE THAT IS USING "‘ITEP’’ FORMATS(1.E. 
PDP-11 RUNNING ITEP). 


IF OTHER NODE IS USING ITEP, THE ABOVE ‘MULTIPOINT 
NETWORK'’ QUESTION WILL NOT APPEAR. 
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TO THE "MULTIPOINT NETWORK'’ QUESTION, YOU RESPOND WITH ‘‘Y’’ 
ADDRESS THIS STATION: (D) 1 ? 


WILL BE DISPLAYED. INPUT THE DECIMAL TRIBUTARY ADDRESS (1-255) 
OF THIS DUP-11. 


2.5 DATA COMM. LINK TEST COMMANDS 


THE “DCLT>"* COMMAND LEVEL FOLLOWS THE ANSWERING OF THE HARDWARE P-TABLE 
rg tie H THESE COMMANDS CAN BE TYPED WHEN THE ‘DCLT> (A) ?°' PROMPT 


MESSAGE COMMANDS AVAILABLE: 


YOU ONLY HAVE TO TYPE ENOUGH CHARACTERS TO UNIQUELY SPECIFY A COMMAND. 


hg COMMAND LINE IS INTERPRETED FROM LEFT TO RIGHT. THEREFORE, 
IF ‘ a ~ THE C aay’ ve 1S RELATED OR EFFECTS A QUALIFIER 
TO THE LEFT ON THE COMMAND L ate THE er re eg TO THE RIGHT 


TAKES PRECEDENCE SINCE IT ie IN RPRETE E. IF /CHECK..... 
.»»/NOCHECK APPEAR ON THE SAME LINE, NOCHECE WILL GE INDICATED IN’ THE 
PARAMETERS WORD.) 


REFER TO SECTION 6.0 FOR A DESCRIPTION OF THE DIFFERENT MODES OF 
OPERATION AND THE TYPES OF MESSAGES AVAILABLE. 


2.5.1 MESSAGE COMMANDS 


COMMAND DESCRIPTION 

CLEAR EXPECTLIST ZEROES THE EXPECTLIST (00°S) 
AND THEN PUTS DEF aa ITEP MSG 
IN SO NOT REALLY EMP 


CLEAR TRANSMITLIST FILLS TRANSMITLIST (000°S) 
AND THEN PUTS oe. ITEP MSG 
IN SO NOT REALLY EMP 
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SET EXPEC TMSG=TYPE/QUAL DEFINE A MESSAGE TO BE PUT ON 
THE EXPECTED LIST 
WHERE: ‘‘TYPE’’ IS: 
=ONES 


=ALPHA 
=""A-2,0-9,SPACES OR TABS IN QUOTES" 


WHERE THE OPTIONAL ‘‘QUAL"’ IS: 
/SIZE=NNN MAKE THE MESSAGE ‘NNN’’ BYTES 
LONG. (DEFAULT VALUE IS 
SIZE OF MESSAGE SPEC'D BY 
OPERATOR OR DEFAULTS.) 
/COPY=NN 
= PUT THE MESSAGE IN 
Y ONCE) 


NOTE: SET’S ADD MESSAGES TO THE LIST IN THE ORDER THEY *RE 
DEFINED. "IS AD 


EF A DECIMAL NUMBER. THE FIRST SET 
OVERWRITES THE DEFAULT ITEP MESSAGE PLACED THERE BY 
INITIALIZATION OR A *'CLEAR’’ COMMAND. 


SEE SECTION 6.2 FOR A DESCRIPTION OF THE PRE-DEF INED 

MESSAGES THAT ARE AVAILABLE. (ZEROS,ONES ...) 
TRANSMI TMSG=T YPE/QUAL wea A ase it BE PUT ON 
(SEE DESCRIPT FOR SET EXP) 


EXPECT=TRANSMIT MAKES A COPY OF THE TRANSMIT 
LIST IN THE EXPECT LIST. 


EXPECTLIST LISTS THE MESSAGE SIZE one TYPE 
Cer E 1? mma IN THE 


TRANSMITLIST LISTS Ha MESSAGE SIZE a TYPE 
FOR THE MESSAGES IN THE 
TRANSMIT LIST 
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2.5.2 STATISTICAL COMMANDS 


COMMAND DESCRIPTION 


PRINT TAKES THE OPERATOR TO THE 
REPORT LEVEL 'RPT>". FROM 
HERE YOU CAN EXAMINE THE, 
EVENT LOG OR IF ‘/PROTOCOL 
1S SELECTED, THE DDCMP 
STATISTICAL AND ERROR COUNTERS. 


DUMP _ SSSSSS~EEEEEE/B PRINTS THE CONTENTS OF THE 
MEMORY LOCATIONS. BETWEEN 
OCTAL ADDRESSES, + BeSSss AND 
he TEEEEEE™ WHERE 'SSSSSS"" 1S 
WHERE °/8"" 1S OPTIONAL THE § TART ADDRESS AND 
T 1S PRINT WORDS "SEEEEE'’ IS THE END ADDRESS. 


DEF AI 
iB CAUSES PRINT BYTES 
IF ‘“EEEEEE’’ IS NOT SPECIFIED 


THEN THE CONTENTS OF *’SSSSSS*' 
IS PRINTED IN WORD FORMAT. 
IS PRINTED IN WORD FORMAT. 


NOTE: THE DUMP COMMAND IS USEFUL FOR EXAMINING 
MESSAGE DATA. STARTING ADDRESSES CAN 
BE FOUND BY LOOKING IN THE EVENT LOG. 
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2.5.3 RUN COMMAND 


COMMAND DESCRIPTION 
RUN MODE=MTYPE/QUAL STARTS DCLT EXECUTING IN THE 
MODE SPECIFIED 


NOTE: aay 2 gt 1S NOT DEFAULT, A MODE=MTYPE MUST BE TYPED 
oo--- EACH TIME A RUN IS TYPED 


WHERE THE Se IS ANY oe es THE FOLLOWING: 


(FOR /NOECHO ,KO LOOPING) 
=PASSIVE (FORCES NO LOOPING? 
=RECEIVE (FORCES /NOECHO ,.NO LOOPING) 
=LISTEN (FORCES /NOECHO .NO LOOPING, /NOCHECK) 
=TRANSMIT (FORCES /NOECHO ,NO LOOPING, /NOCHECK) 
=TALK (FORCES /NOECHO ,NO LOOPING, /NOCHECK) 


=DOWNLINELOAD (DOWN-LINE-LOADING IS NOT SUPPORTED 
FOR DUP=11 TO DUP=11 LINKS). 


(FORCING NO LOOPING MEANS IT MUST BE 
SPECIFIED AS A QUALIFIER ANY TIME ITS 
DESIRED, THERE IS NO DEFAULT) 


AND OPTIONA’. "QUAL"’ IS ANY COMBINATION OF THE FOLLOWING: 


/THECK/NOCHECK ENABLES/DISABLES CHECKING OF RECEIVED 
DATA AGAINST THE EXPECTED DATA 


NOTE: IF ~ NODES IN ACTIVE AND ‘*/NOCHECK’’ IS USED, 

o---= END-OF-PASS IS ge AS RECEIVING 1 MESSAGE 
AND COMPL ETING THE TRAN orl LIST. WITH NO DATA 
CHECKING, THERE JS NO WAY FOR DCLT KNOW HOW 
MANY MESSAGES IT SHOULD EXPECT TO RECEIVE. 


/STATUS/NOSTATUS ENABLES/DISABLES PRINTING OF PROGRAM 
STATUS MESSAGES TO THE OPERATOR 


/ECHO/NOE CHO COMALES/OTSIOLES ne RETRANSMISSION OF 
THE DATA RECEIVED IN PASSIVE MODE. 
CTGNORED IN MODES OTHER THAN PASSIVE) 


/MODEM/NOMODEM/ ENASLES/DISABLES THE REPORTING OF MODEM STATUS 
INTERRUPT CHANGES. 


/LOOP=L TYPE SPECIFIES WHICH, IF ANY, TYPE OF 
MAINTENANCE LOOPBACK IS BEING USED. 
(IGNORED IN MODES OTHER THAN ACTIVE) 
MUST BE SPECIFIED EACH TIME ELSE NO 
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LOOP IS USED. 


“LTYPE"’ IS: 
sINTERNALTTL LOOPS DATA INTERNAL TO USYNRT 


=CABLE USE THIS FOR TESTING WITH H325 
TURNARROUND CONNECTOR ON END OF CABLE. 


NOTE: THIS SKIPS OVER THE CHECK 
FOR MODEM READY WHEN DTR IS SET. 


=LOCALMODEM NOT SUPPORTED BY DUP-11 
=REMOTEMODEM a i 


/PASS=NN stceatiay * et pe OF mar TO MAKE BEFORE 
F-P DEFAULT VALUE OF 1 

RUN THAT A _/PASS=N 

IS NOT OMMAND . 


ADDED TO A 
IF A *=1"" IS ys Buy THE PROGRAM 
RUN UNTIL A “C IS TYPED. 


/PROTOCOL eo SUBSET OF DDCMP PROTOCOL= THE DUP-11 


NOW COMMUNICATE WITH OTHER ‘INTELLIGENT* 
SYNCHRONOUS DEVICES THAT SUPPORT DDCMP IN 
THEIR MICROCODE. (DMR,DMC,DMV OR DMP). 


THIS SWITCH IS NOT SUPPORTED BY ALL DCLT’S. 


/NOPROTOCOL DISABLES PROTOCOL= THE DUP-11 CAN COMMUNICATE 
ergs a vc HER DUP=-11 OR DPV-11 RUNNING 


NOTE: SEE SECTION 6.1 FOR A DESCRIPTION 
~---- OF THE "RUN MODES’’ AND "LOOP MODES’ 
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2.5.4 DEFAULTS 


IF NO “aS oe THEN THE DEFAULT IS SAME AS IF TYPED: 
TRANSMI TMSG=1 TEP/S1ZE=58/COPY= 
SET EXPECTMSG=1TEP/SIZE=58/COPY=0_ 


THE eaty eg AND ste — OF THE MESSAGE TYPES: 


ALPHA = /SiZE 
TTeP : /site=587 coPY=0 
OPER. SPEC’D - 7$12E=LENGTH-OF -TEXT=TYPED-BETWEEN-QUOTES/COPY=0 


RUN COMMAND THE DEFAULTS ARE: e« 
RUN MODE=ACTIVE/NOSTATUS/CHECK/NOE CHO/NOMODEM/PASS=1/NOPROTOCOL 


NOTE: MODE=ACTIVE IS NOT. DEFAULT, A MODE=MTYPE MUST BE TYPED 
oo--- EACH TIME A RUN IS TYPED 


IF THE DCLT PROGRAM IS RUN _IN UNATTENDED MODE (UAM FLAG=1 OR CHAINED), 
THE DEFAULTS ARE AS IF THESE SETUP AND RUN COMMANDS WERE TYPED: 


SET TRANS=ITEP 
fl EXPECT=ITEP 
UN MODE=ACTIVE/LOOP=INTERNAL/NOS TAT/NOE CHO/NOMODEM/ CHE CK 
/PASS=1/NOPROTOCOL 


OTHER NOTES: 

“C ALWAYS RETURNS YOU TO ‘DR>** (THE SUPERVISOR) 
<CR> IS SEEN AS_A COMMAND TE 

**RUBOUT"’ DELETE LAST CHAR. TYPED IN COMMAND STRING 
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2.5.5 PRINT COMMAND 


THE PRINT COMMAND TAKES YOU TO THE REPORT LEVEL ‘RPT>’. 
THE COMMANDS AVAILABLE IN RPT> ARE ... 


COMMAND DESCRIPTION 


HELP OR ? PRINTS HELP INFORMATION FOR RPT> 


EXIT RETURNS YOU TO THE LEVEL THAT YOU 
ENTERED FROM. (DCLT> OR DR>) 


LOG PRINTS THE DCLT EVENT LOG 


COUNTERS/FULL PRINTS THE ENTIRE DDCMP STATISTICAL AND ERROR 
LOG. SEE SECTION 4.3 


COUNTERS/ERRORS PRINTS ONLY THE DDCMP ERROR LOCATIONS OF THE LOG. 


COUNTERS/OF F SET=NN PRINTS A SINGLE LOCATION OF THE LOG AS 
SPECIFIED BY THE OCTAL WORD OFFSET VALUE(NN). 


NOTE:: THE DDCMP COUNTERS WILL BE VALID ONLY 
WITH PROTOCOL ENABLED(/PROTOCOL). 


2.5.6 MISC COMMANDS 


COMMANDS DESCRIPTION 


EXIT FROM THE DCLT> LEVEL RETURNS YOU 
TO DR> 


HELP OR ? PRINTS HELP INFORMATION 


2.6 QUICK START-UP PROCEDURE (XXDP+) 
TO START-UP THIS PROGRAM: 
1. BOOT XXDP+ 


GIVE THE DATE AND ANSWER THE LSI AND SOHZ (IF THERE 
IS A CLOCK) QUESTIONS 


TYPE "'R NAME’, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


TYPE "START" 
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5. ANSWER THE ‘‘CHANGE HW’ QUESTION WITH ‘'Y"* 
6. ANSWER ALL THE HARDWARE QUESTIONS. THE NUMBER OF UNITS 
THAT DCLT CAN USE IS ALWAYS °"l"’. 
WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS. THESE DEFAULTS ARE DESCRIBED IN SECTION 2.3. 


7. AFTER THE “DCLT> (A) ?°* PROMPT, TYPE 
"RUN MODE=ACTIVE<CR>"* 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING THE DEFAULT TRANSMIT 
AND EXPECTED MESSAGES. THE DEFAULT PASS COUNT AND ‘RUN"’ FIERS 
ARE ALSO BEING USED. THESE DEFAULTS ARE DESCRIBED IN SECTION 2.5.3. 


F 2 


CZDCLB DUP=-11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83 13:19 PAGE 19 
CZ0CLB.P11 19=-JUL-83 17:12 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR — 
ARE ALWAYS PRINTED UNLESS THE “IER ce iS SET (SECTION 2. 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


o WHERE ; = = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
R = ER rir 


NUMBE ROR 
UNIT NUMBER = 0 = N_IS_LAST UNIT IN PTABLE) 

TST NUMBER = TEST AND. SUBTEST WHERE wen OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE C 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION. ABOUT, THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE “IER” OR “IBE" FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR aye 
SUCH _AS REGISTER CONTENTS OR GOOD/ 


NTS OR GDOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE "JER, IBE’ OR "IXE'’ FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


3.2 SPECIFIC ERROR MESSAGES 


3.2.1 COMMAND LINE INTERPRETER ERRORS 
ERROR MESSAGE: MEANING 


?I1LL CMD-BAD SYNTX? A_COMMAND WITH ” ILLEGAL CHAR WAS 
ie = RETYPE THE COMMAND. THE 
ALID COMMANDS AND THEIR SYNTAX ARE 
SHOWN IN SECTION 2.5. 


?INCMPLTE CMD? a PART OF A COMMAND WAS LEFT 


2NUM TOO BIG? THE ae we A  aeerts STRING IN THE 
COMMAN BL INe LARGER THAN 65535 
OR 17777 OETAL, ( > 16 BITS). 


?BAD RADIX? A ‘8°’ OR *'9°' WAS TYPED WHEN AN OCTAL 
*STRING WAS EXPECTED, PROBABLY OCCURRED 
WHEN TYPING A ‘DUMP’ COMMAND WHERE 
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OCTAL ADDRESSES ARE EXPECTED. 
?"LOOP"* VALID ONLY IN ACTIVE? 7 **/LOOP=..°* ly WAS TYPED IN A 
OMMAND BUT THE MODE WAS NOT SET 


fy ACTIVE. MAINTENANCE LOOP IS ONLY 
fiw IF THE MODE OF OPERATION IS 


?"ECHO"’ VALID ONLY IN PASSIVE? THE ‘‘/ECHO’’ SWITCH WAS TYPED IN A 
COMMAND BUT THE MODE WAS NOT SET 
TO PASSIVE. ECHOING OF RECEIVED DATA 
IS ONLY POSSIBLE IF THE MODE OF 
OPERATION IS PASSIVE. 
7ILL CHR= *‘A=-Z,0-9,SP,TAB’’ ONLY? A ean TYPED WITHIN QUOTES WHEN 
TRYING TO DEFINE THE CONTENTS OF A 
SSAGE WAS NOT 
COMMAND W Y THESE CHARACTERS 
BETWEEN QUOT Tes. 
?°*SIZE=0"' NOT VALID? A te iy ree LONG “ NOT BE 


ite OMMAND WITH A 
/SIZE=NNN’’. IF NO °'/SIZE="* IS TYPED 
A DEFAULT SIZE WILL BE USED. 


?TRANSMIT AND EXPECT LIST MUST BE IDENTICAL FOR LOOP? 
RUN COMMAND WITH °'/LOOP/CH’* IS TYPED 


IF 
THE TRANSMIT wed AND EXPECT LIST MUST 
BE EQUAL. IF THEY ARE NOT THIS ERROR 

WILL BE DISPLAYED. USE ‘SE E=T" COMMAND. 


3.2.2 DCLT OR DEVICE ERROR MESSAGES: 


CLOCK NOT FOUND a MEANS THAT NO CLOCK WAS 
FOUND ON THE SYSTEM THE DIAG- 
NOSTIC vil STILL RUN BUT NONE 
OF THE TIME OUT CONDITIONS WILL 


BAD CLOCK = PROGRAM WILL HANG ON “‘TIMEQUT''!! 
THIS MEANS THAT THE CLOCK FOUND 
ON_THE SYSTEM DID NOT INTERRUPT 
WHEN ASKED TO DO A ‘*TICK’’. 


THE PROGRAR WILL STILL Bun 
OF THE P HA UNE DEVICE 
WILL HANG IF THE DEVICE E TIMES OUT. 


ALSO, THE EVENT LOG WILL CONTAIN 
ZERO EVENT TIME FOR ALL EVENTS LOGGED. 
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MAX. CHAR. MSG COUNT EXCEEDED = MSG. NOT BUILT !! 
THIS MEANS — THE TRANSMIT OR EXPECT 
BUFFER IS FULL. NO MORE MESSAGES CAN BE 
ADDED TO THAT ‘aur F ER. 


BUFFER FULL = MSG. NOT BUILT !! 
me MEANS me 4 LAST tn vw 


MESSAGES CAN BE ADDED T FER. 

THE LIMIT IS DETERMINED ay MIME SIZE OF 
THE MESSAGE POINTER TABLE. 

CHAR. COUNT EXCEEDS BUFF LIMIT = MSG TRUNCATED 


THIS MEANS THAT THE LAST MESSAGE YOU 
TO THE TRANSM oe 


BUFF S CAN 
DED TO THAT BUFFER. 


3.2.5 DEVICE ERROR MESSAGE 


DATA COMPARISON DATA ERROR 
BYTE # IN MSG=XXX EXPTD=YYY RECVD=Z2Z 


XXX= OFFSET OF THAT BYTE FROM THE START 
OMPARE OR EXPECT MESSAGE. 
YYY= THE CONTENTS OF THAT BYTE IN THE 
EXPECTED MESSAGE 
22Z= THE CONTENTS OF THAT BYTE IN THE 
RECEIVED MESSAGE 


UP TO FIVE OF THESE ERRORS WILL BE 
AGE COMPARED. ONLY 


EPORTED, TOTAL 
NUMBER OF MISTMATCHES IS REPORTED 
BY ANOTHER ERROR. 


PRINTING THE EVENT LOG AND USING THE 

ie OMMAND WILL ALLOW y 5 TO 
FIND THE ADDRESS OF THE MESSAGE. AND 
EXAMINE IT. 


DATA COMPARISON DATA ERROR 
TOTAL MISMATCHES IN MSG = NNN 
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THIS MEANS THAT WHEN THE MESSAGE 
RECEIVED WAS COMPARED AGAINST THE 
MESSAGE T a 


CTED, SOME OF 
THE CHARS. WERE NOT THE SAME. 


DATA COMPARISON LENGTH ERROR 

COMPARE COUNT= XXX RECEIVE COUNT= 222 
XXX= NUMBER OF BYTES IN THE COMPARE 
227Z= NUMBER OF BYTES IN THE RECEIVED 
THIS MEANS THAT THE MESSAGE RECEIVED 
WAS _A DIFFENT LENGTH THEN THE MESSAGE 
THAT WAS EXPECTED. 


MODEM STATUS CHANGES FOR THIS PASS WERE.. 
HARD CHANGES=XXXXX GLI TCHES=XXXXX 


WHERE XXXXX 
HIS MSG I 


M STATUS. 
GLITCH IS WHEN A MODEM STATUS — 
ANNOT FIND A 


OCCURS BUT THE DUP C 
DIFFERENCE IN STATUS BIT. 


Reeeeee 
* NOTE * = IN THE FOLLOWING ERROR DESCRIPTIONS XXXXX 
eeeeneee vate”) BH OCTAL CONTENTS OF THE DEVICE REGISTERS 


MASTER RESET DID NOT WORK THIS MEANS THAT ey A MASTER 
RXCSR TXCSR RESET WAS ISSUED TO DUP_THE 
XXXXXX AXXXXXX RXCSR REGISTER WAS ONON ZERO. 


NO CLEAR TO SEND FROM MODEM WHEN REQUEST TO SEND (RTS) 
RXCSR TXCSR IS SET, MODEM DOES NOT RESPOND 
XXXXKXX XXXXXAX WITH CLEAR TO SEND(CTS). 

TIME OUT WAITING FOR RX OR TX TO COMPLETE 
RXCSR CSR THIS USUALLY MEANS AN OPEN 
XXXXKXX XXXXXXX COMMUNICATION LINK. 

MODEM DID NOT RETURN MODEM READY 

RXCSR TXCSR WHEN THE DTR SIGNAL WAS SET 
KXKAKAX XXXAKAX DATA SET READY WAS NOT RETURNED 


CRC_IN ERROR A CRC ERROR WAS DETECTED BY 
RXDBUF RXCSR THE DUP ON AN INCOMING MESSAGE. 
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AXXAXX XXXXXX 


RECEIVER OVERRUN THE RECEIVER WASN'T SERVICED 
RXDBUF RXCSR FAST ENOUGHT (SOF TWARE)-- 
AXXXAAN AXXXXXX CAUSING A CHARACTER TO BE LOST. 
TIMED OUT IN START,STACK ACK SEQ THIS USUALLY MEANS THAT THE DUP 
RDATA ATA S UNABLE TO ESTABLISH A 
XXXXXXX AXXAXXX CONNECTION WITH THE OTHER 
DEVICE <u TESTED. THE + ae 
IN _RDATA AND SDATA SHOW THE 
RECIEVED(RDATA) AND TRANSMITTED 
(SDATA). SEE DDCMP SPEC. FOR 
FURTHER EXPLANATION OF STARTUP 
SEQUENCE. 


4.0 PERFORMANCE AND PROGRESS REPORTS 


DCLT USES IT’S OWN shy Ae FOR a AN “END OF PASS" 
i & IS CALLED A *DCLT END OF PASS"*. THE NUMBER OF "Det passes” 


RUN IS SPECIFIED Tey THE “TPASSEXNK” SWITCH ON 
RUN COMMAND. THE TOTAL NUMBE CLT ERRORS’’ IS REPORTED 
WHEN *’ X NUMBER OF DCLT PASSES’* ARE COMPLETED. 


4.1 PRINTING OF EVENT LOG 


SIGNIFICANT EVENTS OR CHECK-POINTS WILL BE LOGGED IN 

CIRCULAR QUEUE’ STORAGE AREA CALLED THE EVENT LOG. THE LAST 

“W' EVENTS ARE KEPT LOGGED, AND CAN BE LISTED ON, THE OPERATORS 

CONSOLE BY GIVING A PRINT’ COMMAND AT THE "DR>"*(DIAGNOSTIC SUPERVISOR) 
OR “DCLT>" (DCLT) LEVEL. THIS WILL TAKE YOU TO THE RP]> LEVEL. NOU 

INPUT "LOG" COMMAND. THE EVENTS ARE PRINTED IN A ‘LAST-IN- 

FIRST-OUT" ORDER. 


EVENT ha IS TYPED OUT AS MMM:SS:TT (LIKE 254:36:07) WHERE MMM,SS,TT 
REPRESENT THE NUMBER OF MINUTES, ees CLOCK TICKS SINCE THE LAST 
START OR RESTART. IT SHOULD BE NOTED THAT THE TIME E 
RELATIVE SINCE WHILE THE PROCESSOR IS RUNNING 

0 RR O KEEP TIME. Mee IS THE a 

A a eg DCLT COMMANDS FROM THE OPERATOR. 

IT SHOULD ALSO BE NOTED THAT THERE ~ ONLY 8 BITS AVALIABLE TO STORE 
RELATIVE MINUTES SO “‘TIME’’ WILL WRAP TO 000:00:00 AFTER 256:59:59. 


A_START OR RESTART COMMAND AT THE ‘DR>** Level INITIALIZES THE EVENT 
LOG. THEREFORE IT IS WISE TO DO A see) T THE “DR>** LEVEL 
BEFORE GIVING A “’START’* OR “RESTAR 


THE TYPES OF EVENTS KEPT IN THE EVENT LOG ARE: 
TRANSMI 5 QUEUED: 


T TIME, ADDRESS OF 1ST BYTE OF MESSAGE 
TOTAL NO. OF BYTES, MODEM STATUS AT THAT TIME. 
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TRANSMIT ade COMPLETED: 
EVENT TIME, ADDRESS OF 1ST BYTE OF MESSAGE, 
TOTAL NO. OF BYTES, MODEM STATUS AT THAT TIME. 


RECEIVE SPACE QUEUED: 
EVENT TIME, ADDRESS OF 1ST BYTE OF MESSAGE, 
TOTAL NO. OF BYTES, MODEM STATUS AT THAT TIME. 


RECEIVE Aad on COMPLETED: 
EVENT TIME, ADDRESS OF 1ST BYTE OF MESSAGE, 
OTAL NO. OF BYTES, MODEM STATUS AT THAT TIME. 


DATA wea STARTED: 
EVENT TIME, ADDRESS OF 1ST BYTE OF RECEIVED MSG., 
TOTAL NO. OF BYTES IN RCV. MSG., TOTAL NO. OF BYTES 
IN EXPECT MSG. 


DATA eae DATA ERROR: 
EVENT TIME, ADDRESS OF 1ST BYTE 7 RECEIVED MSG., 
TOTAL NO. OF BYTES IN RCV. MSG., TOTAL NO. OF 
COMPARISON FAILURES 


DATA COMPARISON LENGTH ERROR: 
EVENT TIME, ADDRESS OF 1ST BYTE OF RECEIVED MSG. 
TOTAL NO. OF BYTES IN RCV. MSG., TOTAL NO. OF BYTES 
IN EXPECT MSG. 


DEVICE INIT AND SETUP: 
EVENT TIME, MODE OF OPERATION, TYPE OF MAINTENANCE 
OOP, ‘DCLT’* PASS COUNT, "RUN PARAMETERS 


DEVICE ERROR: 
EVENT TIME, DEVICE ERROR MESSAGE, CONTENTS OF TWO 
REGISTERS RELATING TO THE ERROR. 


EVENT TIME, “DCLT’’ PASS COUNT, “DCLT’’ ERROR COUNT, 
AND THE "'STRT-TO'(COUNT OF START TIME OUTS). 


SEQ 23 
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4.2 OPERATOR STATUS MESSAGES 


THE “Zstatus {NOSTATUSY QUALIFIERS FOR THE DCLT “RUN’’ COMMAND 
ISABL OF PROGRAM STATUS MESSAGES TO THE THE 


SPERATOR. iL 4.4 
THE DCLT PROGRAM 
MIGHT BE PRINTED AND THEIR MEANING: 


MESSAGE MEANING 
DEVICE IS ABOUT START ee lies A MESSAGE 
coonta tke @ OF MESSAGE C 
Vv S QUEUED SPACE TO RECEIVE/ COMPLETED RECEIVE 
DEVICE ERROR HAS OCCUR 
DEVICE ABOUT TO 7 INITIALIZED 
ABNORMAL MODEM STA CHANGE 


TUS 
ABOUT TO DO DATA CHECKING OF RECVD VS. EXPTD DATA 
LENGTH ERROR OCCURRED DURING DATA COMPARISON 
yy — DURING DATA COMPARISON 


NOTE:: BECAUSE THE DUP_IS AN INTERRUPT DRIVEN DEVICE, IT IS BEST 
TO DISABLE STATUS TO PREVENT OVERRUN ERRORS. 
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4.3 PRINTING DDCMP STATISTICAL AND ERROR LOG 


IF YOU ARE en THIS PROGRAM WITH DDCMP PROTOCOL ENABLED, YOU CAN 
E re yie “"RPT>** COMMAND) DDCMP Pee isen AND ERROR COUNTERS TO 

A BETTER UNDERSTAND NG OF WHAT IS HAPPENING ON THE LINK. FOR A FULL 
DESCRIPTION OF THESE COUNTERS at. angie DATA COMMUNICATION MESSAGE 
PROTOCOL) SPECIFICATION VERSION 4 


BELOW IS A BRIEF DESCRIPTION OF EACH COUNTER. THE MOST IMPORTANT OF 
THESE ARE DATA MESSAGES SENT/RECEIVED AND DATA ERRORS IN/OUT. 


OCTAL # MESSAGE MEANING 


000000 STATUS FLAGS USED ONLY IN SOFTWARE DEVELOPMENT. 


000000 DATA MSGS TX # MESSAGES TX*ED DURING THE TEST. RESET 
TO ZERO AT START OR RESTART. LATCHES AT -1. 


000000 DATA MSGS RX # MESSAGES RX°ED DURING THE TEST.RESET 
TO ZERO AT START OR RESTART. LATCHES AT -1. 


000 HIGHEST MSG TX MODULO 255 COUNTER. HIGHEST MESSAGE # SENT 
AND ACK'ED BY REMOTE STATION. 


000 HIGHEST MSG ACK MODULO 255 COUNTER. HIGHEST ot # RX°D 
BY REMOTE NODE.(WITH NO ERRORS) 


NEXT MSG # TO TX MODULO 255 COUNTER. ALWAYS 1 — THEN 
CURRENT MESSAGE NUMBER BEING SENT 


LAST MSG # TX"ED mS 233 COUNTER. ALWAYS SAME AS HIGHEST 


HIGHEST MSG# RX NUMBER OF LAST MESSAGE RX°ED AND ACK'ED. 
TRIB ADDR IF MULTIPOINT THEN ADDRESS THIS STATION. 
REMOTE TIME OUTS wy ae COUNTER. REPLYS RECEIVED AND 


GLOBAL CRC ERRORS IF MULTIPOINT NETWORK-CRC ERRORS DETECTED. 

NAK REASON REASON FOR SENDING LAST NAK. 

SEL THRESH ERRS HALF /DUPLEX ONLY. SELECT TIME OUTS. 

RX THRESH ERRS INCREMENTED WHEN ERROR DETECTED IN 
INCOMING MESSAGE.(MODULO 8 COUNTER) 

RESET WHEN GOOD MESSAGE RECEIVED. 


TX THRESH ERRS INCREMENTED WHEN NAK RECEIVED. RESET WHEN 
ACK RECEIVED. (MODULO 8 COUNTER) 
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000 DATA ERRORS OUT NAKS RECEIVED BECAUSE OF HEADER CRC ERROR 
OR DATA CRC ERRORS OR MESSAGE NOT RECEIVED 
AT ALL CREPY INDICATES NOISE ON TRANSMIT 


DATA ERRORS IN NAKS SENT BECAUSE HEADER CRC ERROR OR DATA 
CRC ERROR DETECTED IN INCOMING MESSAGE. 
MESSAGE TAKING NOISE HITS. 


LOCAL BUFFER ERRS EITHER NO BUFFER WAS AVAILABLE FOR INCOMING 
MESSAGE OR BUFFER THAT WAS AVAILABLE WAS 
TOO SMALL FOR INCOMING MESSAGE. USUALLY A 
SOFTWARE SPEED PROBLEM. 


REMOTE BUFFER ERRS rien LOCAL BUT BUFFER PROBLEMS AT REMOTE 

REMOTE STA ERRS RX a ae ERRORS(RX_ WASN'T SERVICED FAST 
E IF FORMAT ERROR A CRC EXISTED 
AND GASNT DETECTED BY HARDWARE. 

LOCAL STA ERRS SAME AS REMOTE STATION ERRORS. 

TX / RX THRESH ERR yt ot FROM RX OR TX THRESHOLD COUNTERS. 


ICATES A PERSISTENT LINK PROBLEM THAT 
ISN'T CORRECTED AFTER 7 RETRIES. 
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5.0 DEVICE INFORMATION TABLES 


THIS 1S THE DEFAULT, HARDWARE, PTABLE. THE VALUES AND 

SIZE ARE USED AS A “TEMPLATE’’ FOR CREATING ACTUAL P-TABLE 
ENTRIES AND THE DEFAULT. VALUES PROVIDED FOR THE OPERATOR. 
SEE SECTION 2.4 FOR AN EXAMPLE OF THE HARDWARE QUESTIONS. 


THE NUMBERS IN BRACKETS a I.E. we 4 ag Glee - maren? OF THE 
WORD INTO THE HARDWARE P=TABLE. E OFFSETS MUST MATCH THE ee 
OFFSETS USED IN THE HARDWARE PARAMETER CODING SECTION WHERE THE 
“GET PARAMETER’’ CALLS ARE USED TO FILL THE P-TABLE. 


- WORD ; Ay aon “nod DUPLEX FLAG (B1TO=1 IF FULL) 
- WORD 160170 : 2} C3R 

~WORD 300 : 4 INTERRUPT VECTOR 

eWORD 240 : oo mee PRIORITY 

WORD 0 : 10) MULTIPOINT=1 

WORD 1 312] TRIB "ADDRESS, THIS STATION 

-WORD 0 3014] REMOTE NODE *‘ITEP’ 


6.0 MODE AND MESSAGE DESCRIPTIONS 


6.1 MODE DESCRIPTIONS 


THE FOLLOWING MODE DESCRIPTIONS REFER TO MESSAGE LISTS BEING 
TRANSMITTED AND RECIEVED BUT BE AWARE THAT OTHER DATA IS ALSO 
SENT AND RECEIVED. IF "/PROTOCOL" IS SELECTED THE DATA IS 
ENCLOSED IN A DDCAP ENVELOPE AND CONTROL MESSAGE WILL ALSO 


6.1.1 TRANSMIT MODE 


A LIST OF MESSAGES IS TRANSMITTED WITHOUT EXPECTING ANY DATA 
TO BE RECEIVED. HOWEVER WITH ‘'/PROTOCOL'’ ENABLED EACH MESSAGE 
SENT MUST BE ACKNOWLEDGED (ACK). 


6.1.2 RECEIVE MODE 





SPACE IS QUEUVED FOR THE Deviate TO RECEIVE MESSAGES. 

hog RECEIVING AN “EXPE "NUMBER OF MESSAGES THE DATA RECEIVED 
AN BE COMPARED AGAINGT. A TTtst OF “EXPECT TO RECEIVE’ MESSAGES 

iF PDATA-CHECKING IS ENABLED. 


6.1.3 PASSIVE MODE 


THEN EVERY TIME A MESSAGE IS RECEIVED, A MESSAGE IS TRANSMITTED. 


SEQ 27 
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DATA CHECKING CAN BE DONE ON THE RECEIVED DATA.THE °‘/ECHO, /NOECHO"’ 
ENABLES/DISABLES THE RETRANSMISSION OF THE DATA RECEIVED. 


6.1.4 ACTIVE MODE 


LIST OF MESSAGES IS TRANSMITTED ~ gt ne i. RECEIVED. 
AFTER RECEIVING AN “EXPE E THE DATA RECEIVED 
CAN BE COMPARED AGAINST A_LIST OF EXPECT 1D ARECEIVE™ MESSAGES 
IF DATA=CHECKING IS ENABLED. 


NOTE: IF BOTH ENDS OF ae | LINK ARE IN ACTIVE 7 oe THEN THE 
iL INK MUST BE A FULL DUPLEX LINK 


6.1.5 DOWN-LINE-LOAD 


eT thet IS NOT SUPPORTED IN THE ett # FOR ed 
TO DUP=11 LINKS. HOWEVER IT IS POSSIBLE TO “REQUEST SECONDAR 
LOAD'’ FROM A_HOST STATION(IF SUPPORTED) IF THERE IS A SUP(H9312) 
DECNET BOOTSTRAP MODULE IN YOUR MACHINE. 

SEE BOOTSTkAP OPERATOR'S MANUAL. 


6.1.6 TALK MODE 


THE ™ END OF THE LINK TRANSMITS remit MESSAGES 
"EXIT MESSAGE IS TYPED. AT THAT PO T 


HE NODE GOES 
AN “EXIT MESSAGE” IS A MESSAGE WHOSE FIRST 
T’’, SINCE ONLY THE FIRST FOUR CHARACTERS 
CHARACTERS CAN BE ADDED SO THAT A MESSAGE 
MAY BE SENT AND THE MODE SWITCHED ALL AT ONCE. FOR EXAMPLE: 


TLK> EXIT ALL OF THIS LINE IS SENT THEN MODE SWTICHED 


6.1.7 LISTEN MODE 


THE *LISTEN’’ END OF THE LINK PRINTS ALL OF THE MESSAGES 

RECEIVED BY THE DEVICE ON THE OPERATOR'S CONSOLE. IF THE MESSAGE 

rae VED IS AN “EXIT’’ MESSAGE, THEN THE NODE ENTERS ‘TALK’ MODE . ; 
EXIT MESSAGE” IS A MESSAGE WHOSE FIRST FOUR CHARACTERS ARE "EXIT". 
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6.1.8 MAINTENANCE "‘LOOP** MODES 


REMEMBER THAT THE WHENEVER A ‘'RUN’’ COMMAND IS TYPED yet Is 
NO LOOPBACK AND THAT A LOOP MODE MUST BE SPECIFIED BY A ‘‘/LOOP 
IF A LOOP MODE IS DESIRED. 

LOOP MODES ARE ONLY VALID IF THE MODE TO RUN IS ACTIVE ! 


INTERNALTTL LOOPS DATA INTERNAL TO THE USYNRT 


THE FOLLOWING TABLE wrges THE MODES THAT CAN BE RUN TOGETHER 
en ne tink) es S RUNNING ON TWO PROCESSORS (ONE AT EACH 


'STATION A STATION 8 
tWOST"" NODE ‘"/LOOP"" ALLOWED? "REMOTE"’ NODE 


LISTEN*®, RECEIVE 
TALK*, TRANSMIT 
RECEIVE®, LISTEN 
TRANSMIT®, TALK 


{ACTIVE YES PASSIVE* 
‘DOWNL INELOAD #* DOWN-LINE-LOADING IS NOT SUPPORTED FOR DUP-11 : 
w= MOST LIKELY TO BE IN THAT MODE 


NOTE: H/D START COLUMN INDICATES WHICH NODE TO START FIRST ON A 
HALF DUPLEX LINK 


IF PROTOCOL IS ENABLED, THE H/D START COLUMN CAN BE IGNORED. 
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6.2 MESSAGE DESCRIPTIONS 
NAME DESCRIPTION 


CE © CE See spa ninniihunigig 
e 


ALT fo101010.<2::) 
OALT 9 1, 1 
CCITT eit 


“ait 
ITEP ca Hie pal RES SAGE 1(DP1:) 
>/$A_THE Quick ca Ox OVER THE 
at DOG. <15><12><001><177><177><177><1 3 


ALPHA ALPHA-NUMERICS (OR SUTURE COMM T MSG) 
Casi (AMPERSAND) * ()#+,=.0123456789: ; <=>?@ABCDEF GHI JK 
LMNOPORSTUVWXYZ/L\}*_25 


OPERATOR~SPECIF IED WA=Z 0-9. SPACES, TABS" 
ESE A ARE THA T THE CHARACTERS RS THAT, CAN 
D BETUEEN QUOTATION PARKS. ("0") 

FO SPECIFIY A UNIQUE MESSAGE. 
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7.0 OTHER INFORMATION 


7.1 INTERFACING TO AN “‘ITEP’’ NODE 


THESE ARE THE RULES WHEN USING ITEP/WITH A DUV TO TALK 
TO A DUP USING DCLT. 


ITEP NODE DCLT NODE 


ANSWER ALL QUESTION TO THE ANSWER ALL QUESTIONS TO THE 
SET SWITCHES PROMPT. DCLT> PROMPT. 


RAERAAAAAAARAEAAAAEEAAAAREAREARERAAAREREEREEAERRAREREEREREEREE 


FOR ONE WAY OUT... 
SET SWITCHES TO 1221 CLEAR Presser 

SET E=ITEP/S=56 

RUN MODESREC/STATUS/CHECK/NOPROTOCOL 
NOTE: DUV ITEP SENDS ONLY 56 CHARS 


REAR AAAAEAAAAAEERAREAERAAEAERAEERERAEREREEAREREREREEREREERE 


FOR ONE WAY oe 


SET SWITCHES TO ....1222 RUN MODE=TRA/STATUS/NOPROTOCOL 


RRA AAAEAAAEEERAREEREEREEEEERERARAEREREERAEEEEEEEEEAEEERREEEE 


FOR EXTERNAL LOOPBACK.... 
SET SWITCHES.......1224 CLEAR EXPECTED 
SET EXP=1TEP/S=56 
RUN MODE=ACTIVE/STATUS/CHECK/NOPROTOCOL 


MOTT Tittiitiifiiiiiiiitiiiiiiiii iii rrr ry 
FOR INTERNAL LOOPBACK......- 
SET SWTICHES......1260 CLEAR gurecice 
SET EXP=ITEP/S=56 
RUN MODEZACTIVE/STATUS/CHECK/NOPR 
TITiTiiiifiiiiiiii iii) 


NOTE: DO NOT USE SWITCH . WITH ITEP GOING TO DCLT 
i enh DCLT 


MESG. SUPPORTS IS MSG 
T IGNORES CRC ERRORS WHEN REC DATA FROM ITEP 
BECAUSE ITPE SENDS NO CRC. 
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7.2 TROUBLESHOOTING HINTS 


THESE ARE MEANS T Y WAYS DCLT C 
DCLT IS MEANT TO BE A_VERY FLEXIBLE TOOL! THIS SECTION IS “MEANT TO 
GIVE SOMEONE NOT TOO FAMILIAR WITH DCLT A PLACE TO START. 


HINT::: IF THIS DOCUMENT IS TOO LARGE TO CONSUME, GET A COPY OF DEC’S 
COMMUNICATION OPTIONS MINI REFERENCE GUIDE (EK-CMIN1-RM-001). 


REMEMBER, IF YOU ARE HAVING TROUBLE WITH RX OVERRUN ERRORS OR MISSED 
MESSA OR DATA CHECK ERRORS== DISABLE STATUS (/NOSTATUS) . THE CPU 
Is WAVING A HARD TIME SERVICING BOTH THE TTY AND DUP. 


io IF YOU ARE CHECKING OUT DUP-11 TO et LINKS, IT IS A GOOD IDEA 
OE PROTOCOL(/PROTOCOL). BY eat He poche See ekatie te AND 

ERROR LOG, YOU WILL GET A COMPLETE PICTURE OF WHA 1S HAPPENING ON THE 

Tt en LINKS WILL BE DETECTED VBETTER IF "LARGE MESSAGES (512 


BOTH NODES MUST EITHER ENABLE('*/PROTOCOL’*) OR DISABLE (''/NOPROTOCOL"’). 


NOTE: IF BOTH NODES IN ACTIVE AND “‘/NOCHECK’’ IS USED, 
wooe= END-OF-PASS IS he AS RECEIVING 1 MESSAGE 
AND COMPLETING THE TRANSMIT oe co NO if ., 


CHECKING, THERE IS NO WAY FOR DCLT TO K 
MANY MESSAGES IT SHOULD EXPECT TO RECEIVE. 


7.2.1 INTERNAL LOOP AT EACH NODE 
RUN EACH END OF THE LINK IN ACTIVE MODE WITH LOOP=INTERNAL. 
TRANSMIT TWO OR THREE MESSAGES WITH NO DATA CHECKI 
STATUS PRINTING COULD BE TURNED OFF IF ON, BUT SEEING THE SEQUENCE 
OF EVENTS MIGHT BE INFORMATIVE. 
A POSSIBLE COMMMAND SEQUENCE IS: 

cE 


cT 
SE _T=ONES/S=20/C=2 
R M=A/LO=I /NOCH/STAT/NPR 


WHAT THE ABOVE COMMAND SEQUENCE MEANS: 


HE "CE" ANDTHE "CT" INITIALIZES THE EXPECT. 
1st AND THE “TRANSMIT LIS 'SE_T=ONES/S=20/C=2 
§ THE TRANSMIT LIST TO, CONTAIN 3 MESSAGES. THE MESSAGES 
TA 0 ACH ONE 1S 20 BYTES IN LENGTH. 
HE MODE TO RUN IN TO BE 


IVE AND LOOP TYPE TO BE AM WILL 
NOT BE CHECKING DATA SO THERE WAS NO UP AN 
EXPECT LIST. THE PROGRAM WILL BE PRINTING STATUS MESSAGES. 
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WHAT YOU SHOULD SEE AFTER aoe THE RUN COMMAND 
IF THINGS ARE RUNNING CORRECTL 


INI RXQ TXQ RXQ TXC TXQ RXQ TXC 
TXQ@ RXQ TXC EOP 
MODE=ACT I VE/LOOP=INTERNAL/PASS=00000 
/STATUS/NOCHE CK/NOE CHO/NOMODEM/NOPROTOCOL 


DCLT> (A) ? 


THIS GIVES YOU A IDEA IF THE COMM. DEVICE CAN EVEN TRANSMIT AND 

RECEIVE. ANY ERRORS REPORTED W 1Y. Hyg BE DUE TO INCORRECT 

DEVICE ak BEING USED OR A FAULTY DEVICE. CHECK ADDRESSES 
*“DISPLAY’’ AND RUN THE PREREQUISITE DIAGNOSTICS FOR THE COMM. 


NOW TRY RUNNING EACH NODE THE SAME WAY WITH DATA CHECKING ENABLED. 
A POSSIBLE COMMMAND SEQUENCE IS: 


SE E=T 
R M=A/LO=1/CH/PAS=3/PR 


WHAT THIS SEQUENCE MEANS: 


THIS w¥S 7% P, SIMILAR TO THE ONE ABOVE . THE ‘SE E=T’ 
MAKES A_COPY THE TRANSMIT LIST IN THE EXPECT LIST. 
NS SAGES. THE St a WILL 


THE RUN COMMAND IS, THE. S 

SWITCHES "'/CH/PAS=3"'. CH TELLS THE PROGRAM 

TO CHECK THE RECEIVED DATA AGAINST THE “EXPECTED LIST 
PAS=3"" SWITCH TELLS THE PROGRAM T PASSES BEFORE 

RETURNING 10° THE DCLTD N'NON-DDCMP LINKS. THE 

/PROTOCOL" SWITCH IS OPTIONAL. 
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WHAT YOU SHOULD SEE AFTER ENTERING THE RUN COMMAND 
IF THINGS ARE RUNNING CORRECTLY : 

ini RXQ TXQ TXC RXQ TXG TXC RX 

TXQ TXC CMP CMP CMP EOP RXQ TXQ 


RNAL/PASS=00000 
/STATUS/CHECK/NOE CHO/NOMODEM/PROTOCOL 


IF A CABLE TURNAROUND CONNECTOR IS AVAILABLE, PUT IT ON THE END OF 
THE CABLE JUST BEFORE THE MODEM AND RUN IN ACTIVE MODE WITH THE 
**/LOOP=CABLE"* SWITCH. 


POSSIBLE COMMAND SEQUENCE IS: 
R M=A/L=C/CH/PAS=3 
WHAT THIS SEQUENCE MEANS: 


THIS SEQUENCE HAS THE ‘’/LO=C**. THIS INFORMS THE SOFTWARE 
NOT TO CHECK FOR DATA SET READY SIGNAL FROM THE MODEM. 
ALSO A CLOCK SIGNAL IS FURNISHED BY THE DUP. 


T YOU SHOULD SEE AFTER oe, THE RUN COMMAND 
tf THINGS ARE RUNNING CORRECTL 


INI RXQ TXQ TXC RXQ TXQ TXC RXO 

TXQ TXC CMP CMP CMP EOP RXQ TXO 

TXC RXQ TXQ hae Tae TXQ TXC CMP 

CMP CMP EOP RXQ TXQ TXC RXQ TXO 

TXC RXQ TXQ TXC CMP CMP CMP EOP 
MODE=ACTIVE/LOOP=CABLE/PASS=00000 

nt oa /STATUS/ CHE CK/NOE CHO/NOMODEM/PROTOCOL 


7.2.2 TRANSMIT ON ONE NODE RECEIVE ON THE OTHER 


NOW TRY TRANSMIITING FROM ONE END AND RECEIVING ON THE 
OTHER. MAYBE WITH NO DATA CHECKING AT FIRST TO ESTABLISH 
IF THE LINK IS WORKING. POSSIBLE COMMAND SEQUENCES ARE: 


CE 
cq cT 
R M=TR/NOCH/PAS=3/NPR R M=R/NOCH/PAS=3/NPR 
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WHAT THIS SEQUENCE MEANS: 


THE "CE "* 126, BOTH THE, 
TRANSMIT AND EXPECT LI R_M=TR/PAS=3"' SETS 
THE RUN MOD 1 "TRANSMIT AND. THE PASS 
R M=R/NOCH/PAS=3'' SETS THE RUN 
IVE WITH NO DATACHECKING AND 
ONAL BUT IT MUST BE ENABLE OR 
DISABLE ON BOTH ENDS. 


WHAT YOU SHOULD SEE AFTER ogy THE RUN COMMAND 
IF THINGS ARE RUNNING CORRECTL 


FOR NODE A: 
we i TXC EOP TXQ@ TXC EOP TXQ 
MODE=TRANSMI T/PASS=00000 
DCLT> (A) ? /STATUS/NOCHE CK/NOE CHO/NOMODEM/NOPROTOCOL 


FOR NODE B: 
INI RXQ EOP RXQ EOP RXQ EOP 
MODE=RECE1VE/PASS=00000 
LP Ww ? /STATUS/NOCHE CK/NOE CHO/NOMODEM/NOPROTOCOL 


NOW TRY DOING DATA CHECKING ON THE MESSAGE(S) BEING 
TRANSMITTED. POSSIBLE COMMAND SEQUENCES ARE: 

R M=TR/PAS=3 R M=R/CH/PAS=3 
WHAT THIS SEQUENCE MEANS: 


THE CHANGE IN THE RUN COMMAND IS FROM ‘NOCH’ TO 
CH’. THE *‘CH’’ ENABLES DATA CHECKING. 


WHAT YOU SHOULD SEE 5 ase ENTERING THE RUN COMMAND IF THINGS 
ARE RUNNING CORRECTL 


NODE A: IS THE SAME AS ABOVE. 
NODE 


6: 
INI RXQ CMP EOP RXQ CMP EOP RXQ CMP EOP 
MODE=RECE IVE/PASS= 

af SAE LER AEDT ee 


DCLT> 


pre he od THRU THE SEQUENCE AGAIN WITH NODE A RECEIVING 
NODE B TR arty Wee TO CHECK OUT THE OPPOSITE 
DIRECTION OF DATA FLOW. 
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7.2.3 ONE NODE ACTIVE THI. OTHER NODE PASSIVE 


NOW TRY RUNNING ONE NODE If ACTIVE MODE WHILE THE OTHER 
END RUNS IN PASSIVE. DATA ChKECKING SHOULD BE TURNED OFF 
IF THE MESSAGE LISTS ARE MOT THE SAME. 

POSSIBLE COMMAND SEQUENCE'S ARE: 


NODE A NODE B 


.S CE 


cT cT 
SE T=CCITT/S=10/C=2 SE T=1ALT/S=20/C=2 
R M=ACT/NOCH/PAS=3 R M=P/NOCH/PAS=3 


WHAT THIS SEQUENCE MEANS: 
THE ag he OF THIS SEQUENCE metre THE Abs 


BEEN RUN. 
IF YOU ARE RUNNING FROM L YOU WOULD HAVE 
TO ADD A *'/STA TO THE RUN COMMAND LINE. 
ord B: THE TRANSMIT AND EXPECT LISTS ARE INTIALIZED 

N THE TRANSMIT LIST IS SET TO ze MESSAGES OF 

20. BYTES an, THE DATA FOR EACH MESSAGE IS ALTERNATING 
1°S AND 0°S. THE NODE IS THEN RUN IN PASSIVE MODE WITH 
DATA CHECKING DISABLED AND THE PASS COUNT SET TO 3. 


T YOU SHOULD SEE AFTER +h THE RUN COMMAND 
ie THINGS ARE RUNNING CORRECTL 


FOR NODE A: 


INI RXQ TXQ TXC RXQ TXO TXC RXO 
TXQ TXC EOP RXQ@ TXQ TXC RXQ TXO 
TXC RXQ TXQ TXC EOP RXQ TXQ TXC 
RXQ TXQ TXC RXQ TXQ TXC EOP 
MODE=ACTIVE/PASS=00000 
ont a ¢ /STATUS/NOCHE CK/NOE CHO/NOMODEM/NOPROTOCL 


E B: 

INI RXQ TXQ TXC RxQ@ TXQ TXC RXO 

TXQ TXC EOP RXQ TXQ TXC RXQ TXO 

TXC EOP RXQ TXQ TXC RXQ@ TXO TXC 

RXQ TXQ TXC EOP 

MODE=PASS1VE/PASS=00000 

=e /STATUS/NOCHE CK/NOE CHO/NOMODEM/NOPROTOCOL 
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NOW USE DATA CHECKING WITH Ln atic t MESSAGE LISTS*’ SET 
UP APPROPRIATELY. ANOTHER VARIATION IS TO HAVE LARGE SIZE 
MESSAGES ON ONE SIDE WITH SMALL AMESSAGES ON THE OTHER. 


Hae REVERSE THE SETUP SO THAT THE NODE RUNNING IN ACTIVE 


S RUNNING IN PASSIVE AND VICE VERSA. 
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7.2.4 BOTH NODES ACTIVE 


NOW BOTH W_WODES CAN BE RUN IN ACTIVE WIT! H DATA CHECKING ON. 
a COULD BE TURNED OFF IF RE 


YOU'RE NOT INTERESTED 


NODE A 


ce 


cT 

SE T=OALT/S=10 
SE bf LE 
SE T=ALPHA/S=30 

SE E=PERO/S=T1 

SE E mitt E 

SE_E=ITEP/S=31 SE T=ITEP/S=31 

R M=A/CH/NOST/PAS=3 R M=A/CH/NOST/PAS=3 


WHAT THIS SEQUENCE MEANS: 
NODE A SET 13 es LIST TO BE 


HAS THE SAME MESSAGES EX T THE 
eye 1 rye LIST IS THE EXPECT MESSAGE LIST 
BOTH NODES ARE RUN IN THE ACTIVE MODE WITH 
DATA CHECKING AND PASS COUNT EQUAL TO THREE. 


WHAT YOU SHOULD SEE AFTER Seren ins THE RUN COMMAND 
ti — ARE RUNNING CORRECTLY 
ON BOTH NODES A AND B: 
MODE=ACTIVE/PASS=00000 
a /NOSTATUS/CHECK/NOE CHO/NOMODEM/NOPROTOCOL 


A GOOD VARIATION THAT CAN BE USED IS TO LOAD THE TRANSMIT LIST AND 
EXPECT LIST WITH A LARGE MESSAGE(512 CHARACTERS) ,ENABLE PROTOCOL, 
AND RUN MANY PASSSES ON BOTH ENDS. 


DCLT>(A)? cL T 

DCLT>(A)? CLE 

DCLT>(A)? SET T=CCITT/SIZE= 512 
DCLT>(A)? SET 

DCLT>(A)? R M=A/NST/CH/PA=255/PR 
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7.2.5 TALK AND LISTEN MODES FOR COMMUNICATING 


TALK AND LISTEN MODES ARE USEFUL IF THE OPERATORS WISH TO COMMUNICATE 
WITH EACH OTHER. JUST SETUP A TIME THAT EACH WILL GO Oe Coan MODE, 


TALK OR LISTEN, AND SEND MESSAGES OVER THE LINK. POSSIBL 
SEQUENCES ARE. 


R M=LIS/NOST R M=TA/NOST 
LIS> TLK> 


7.3 EXAMPLES OF COMMANDS 


THIS SECTION WILL SHOW A SAMPLING OF COMMANDS AND 
EXACTLY WHAT TO EXPECT FROM THEM. 


7.3.1 EXAMPLES OF MESSAGES COMMANDS 
THE CLEAR COMMANDS . 


cE 
cT 


THIS WILL INITIALIZE THE TRANSMIT AND EXPECT LIST 
TO 1 MESSAGE OF 58 BYTES. THE DATA OF THE MESSAGE WILL 
BE THE ITEP MESSAGE. 
IF THESE COMMANDS ARE FOLLOWED BY A SHOW COMMAND 
SH E 
SUCH AS he _SHOW EXPECT LIST. WHAT YOU WOULD SEE IS 
: TYPE=ITEP/SIZE=58 
MODE=ACTIVE/PASS=00001 
/NOSTATUS/ CHECK/NOE CHO/NOMODEM/NOPROTOCOL 
DCLT> (A) ? 
NOW IF YOU DID A SET EXPECT LIST COMMAND SUCH AS: 
SE E=A/S=35/C=3 
AND FOLLOWED IT WITH A SHOW EXPECT LIST COMMAND 
SH E 


SEQ 39 


B 4 
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WHAT YOU WOULD SEE IS 
MSG: TYPE=ALPHA/SIZE=35 
MSG: TYPE=ALPHA/SIZE=35 
MSG: TYPE=ALPHA/SIZE=35 
MSG: TYPE=ALPHA/SIZE=35 
MODE=ACTIVE/PASS=00001 
DELT> (A) ? /NOSTATUS/CHECK/NOE CHO/NOMODEM/NOPROTOCOL 


aa 


SEQ 40 
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7.3.2 EXAMPLES STATISTICAL COMMANDS 

IF YOU TYPE A HELP COMMMAND 

en YOU WILL SEE IS 

iad OR SHOW EXPECTLIST OR TRANSMITLIST 


DUMP START~END/8 
SET EXPECTMSG OR TRANSMITMSG=TYPE/SIZE=N OR /COPY=N 
SET EXPECT=TRANSMIT 
TYPE=ONES ZEROES, 1ALT.OALT ITEP CCITT ,ALPHA 
"OPR P,TAB,O-9 IN QUOTES’ 

RUN MODE=MTYP/LOOP=LTYP/CHECK PROTOCOL, STATUS, ECHO,MODEM, PASS=N 

NTYDOTRAN.REC ACTS PAS, TAL,L1S,DOWN 

LTYP=INT,CAB,LOC ,REM/ 


DCLT> (A) ? 
THE SAME WILL HAPPEN IF YOU USE THE ? 
THE DUMP COMMAND WORKS LIKE THIS 

DUM 41260-4 


THIS WILL DUMP THE DATA FROM ADDRESSES 41260 TO 
41300 IN THE FOLLOWING MANNER 


41260 104423 000167 177772 021122 012112 006312 006312 006312 
41300 006312 


IF YOU HAD USED THE /8 SWITCH 
DUM 41260-41300/8 
WHAT YOU WOULD SEE or ' 
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7.3.3 EXAMPLES RUN COMMMANDS 


rey CAN FIND SEVERAL EXAMPLES OF THE RUN COMMMAND IN THE 
TROUBLE SHOOTING HINTS SECTION BUT HERE ARE SOME OTHERS. 


IF YOU — TO EXECUTE THE RUN COMMAND 
M=TR/NOST/CH/PAS=4 
WHAT wourD HAPPEN IS AF hy 4 PASSES THE PROGRAM WOULD RETURN 
TO THE DCLT PROMPT “rr PRINT 
MODE=TRANSMI T/PASS=00000 
scLT> (ad /NOSTATUS/CHE CK/NOE CHO/NOMODEM/NOPRTOCOL 


IF YOU ee 10 EXECUTE THE RUN COMMAND 
CT 
R M=A/LO=1/ST/CH/PAS=3/PROTOCOL 
WHAT voy WOULD SEE (IF USING DEFAULT TRANSMIT AND EXPECT 
INI RxQ TXQ TXC CNP EOP RXQ TXO 
CMP EOP RXQ TXQ TXC CMP 


TXC EOP 
MODECACTIVE/LOOPLINTERNAL/PASS=0000 
NR TATUS/CHECK/NOE CHO/NOMODEM/PROTOCOL 


IF YOU 7 ioe EXIT COMMAND 


x 
WHAT YOU WOULD SEE IS 
CZDCL 
0 CUMLATIVE ERRORS 
DR> 
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7.3.4 EXAMPLES PRINT COMMANDS 

THE PRINT COMMMAND CAN BE USED FROM THE SUPERVISOR (DR>) 
LEVEL OR THE DCLT (DCLT>) LEVEL. ONCE YOU ARE AT THE 

REPORT LEVEL YOU WILL KNOW IT BY THE PROMPT "RPT>". 

AFTER TYPING PRI FOR EITHER THE THE DLCT> OR DR> THE 

FOLLOWING IS DISPLAYED. 


TYPE “H’’ OR ‘*?"* FOR HELP! 
RPT> (A) ? 


HERE ARE SOME EXAMPLES OF RPT> LEVEL COMMANDS: 
THE HELP OR ? COMMAND 
HELP 


? 
PRODUCES THE FOLLOWING: 


DCLT REPORT CMDS: 
OG = PRINT DCLT rire 


IS SAGE 
COUNTERS/SW = PRINT DDCMP COUNTERS 
WHERE /SW=FULL, /ERRORS, /OFFSET=NN(O) 


RPT> (A) ? LOG 

THE LOG COMMAND PRODUCES THE FOLLOWING 

>>> DCLT EVENT LOG ENTRY >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
2:01:17 m4 ~*y 


PASS = 12 _ ERRORS = 0 RT-T0 = 0 
>>> peer EVENT LOG sENTAY >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 


TRANSMIT MSG _QUEUED 
ADDR OF MSG= 003150 BYTE COUNT= 58 
MODEM STATUS: CTS of DCD RTS . SRD 


>>> DCLT EVENT LOG ENTRY 9 "eager taenaaecae 
RECEIVE SPACE Q 
ADDR OF MSG=004150 BYTE YOUN: 512 
MODEM STATUS: sy “'s v's RI ry 


THIS GOES ON FOR 45 EVENTS IF ae MODE 
aed ta EXECUTED HAD THAT 
YOU EXIT FROM EVENT LOG PRINTING "ey 
TYPING A CONTROL C. 


TO LEAVE THE REPORT LEVEL INPUT THE ‘EXIT’ COMMAND. 





-_ 
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7.3.5 EXAMPLE EXIT COMMAND 
THE EXIT COMMAND WORKS LIKE THIS. IF YOU 
ENTERED THE REPORT LEVEL FROM THE SUPERVISOR 
(DR>) THEN TYPING 
EXIT 
WILL RETURN YOU TO THE SUPERVISOR. 
DR> 


IF YOU ENTERED REPORT FROM THE DCLT LEVEL 
THEN TYPING 


EXIT 
WILL RETURN YOU TO THE DCLT LEVEL. 
DCLT> 


7.4 THINGS TO WATCH OUT FOR 


IF YOU ARE RUNNING DCLT ON SYSTEMS THAT — cones 
WITH DIFFERENT SPEEDS YOU wt BE UNABLE TO USE THE 
PRINT STATUS FEATURE _IN CERTAIN MODES. THE RULE IS 

IF IT DOESNT WORK WITH STATUS PRINTING RUN THE MODE 
WITH NOSTATUS. 


IF YOU ARE USING PASSIVE mes Be THE ECHO SWITCH 
THEN YOU WILL PROBABLY HAVE T D SuITCH. THE THE REASON 15 


THAT THE TRANSMI 
RECEIVE LIST WHEN USI 
DATACHECKING("*/NOCHECK’ ! 


IF YOU ARE RUNNING HALF/DUPLEX IT IS oes TO USE Hy **/NOMODEM’* 
SWITCH BECAUSE EVERY TIME THE LINE IS TURNAROUND A MODEM CHANGE 
WILL BE REPORTED. 


IF YOU ARE RUNNING WITH By a seLecree THE ens srarys AS 
REPORTED IN THE EVENT LOG MAY NOT INDICATE THE TRUE CONDITION OF 
THE MODEM SIGNALS. THIS IS BECAUSE THE EVENT IS LOGGED B BEFORE THE 
MESSAGE IS PASSED TO THE DDCMP PROTOCOL LAYER UHERE THE RX,TX AND 
MODEM SIGNALS ARE MANIPULATED. 
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-SBTTL PROGRAM HEADER 
BGNMOD 


SSSZSZSSSZSEE 


THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER BGNRPT ,BGNAU,BGNDU 


SeeseRaess 


HEADER CZDCL,B,0,1800.,0,#PRI07 


td ot ot ot od 


WONAOULWN—O 
2 


20 
20 
20 
20 
20 
20 
20 
20 
20 
20 


ad ah ad at 


LSREV:: 
LSDEPO: : 
LSUNIT:: 
LSTIML: 

LSHPCP: 

LSSPCP::" 
LSHPTP: : 
LSSPTP::” 
LSLADP: : 
LSSTA:: 
LS$CO:: 
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0 

0 
LSDISPATCH 
#PR107 

0 

0 
me 


e 


* 

= 

ee 
ee 
ow 
=e 
4-1 
mm 


0 
LSDVTYP 
LSRPT 


LSDEVP:: 
LSREPP:: 
LSEXP4::— 


011524 

062 025336 
000000 
000000 
026334 

75 026326 
000000 
011534 
104035 
000000 
025352 
026240 
026236 
025344 
000000 
000000 
000000 


LSAUT:: 
L$DUT:: ~ 
LSLUN:: © 
LSDESP::— 


LSETP:: 
LSICP:: 
LSCCP:: 
LSACP:: 
LSPRT:: — 
LSTEST::" 
LSOLY:: 
LSHIME::” 


LSINIT 
LSCLEAN 
LSAUTO 
LSPROT 
0 

0 

0 


srreecess 


mM 
— 
— 
oO 


° . ses oo e 
=< 
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~SBTTL DISPATCH TABLE 


$ 


THe DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH _, 
: IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


002122 DISPATCH 1 
002122 000001 


002124 LSDISPATCH:: 
002124 026342 «WORD 


ee ed ed aed oe ws od ot ot 
SELESRASLS 


; 
2 
2 
2 
2 
2 
2 
2 
2 


_ 
o 





J 4 


CZDCLB_DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83 13:19 PAGE 49 
CZDCLB.P11 19-JUL=83 1 7s] 12 DEFAULT HARDWARE P-TABLE 


—_ 
2 
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~SBTTL DEFAULT HARDWARE P-TABLE 


++ 

; THE DEFAULT HARDWARE P=TABLE CONTAINS DEFAULT VALUES OF 
; DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
; 1S IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES. 
: AND TS USED ASA “TERPLATE” FOR BUILDING THE. P-TABLES. 


ee ed ed ad dd 
OONOULwWI 


BGNHW DFPTBL 
-WORD 110000-LSHW/2 


LSHW: : 
DFPTBL:: 


rororonn 
RUS 


area SECTION 
: THE NUMBERS IN BRACKETS ARE THE OFFSET VALUES USED IN THE PARAMETER 
- CODING SECTION. 


ee ced ee cD ced ceed ee ed ed ed ed ed ed eed eed od eed 


-WORD 1 3COJ FULL OR HALF DUPLEX FLAG (BITO=1 IF FULL) 


sDEVICE DEPENDENT SECTION 
: ADDING OR REMOVING WORDS FROM THIS TABLE EFFECTS THE ‘'GET’* CALLS IN 
: THE HARDWARE PARAMTER CODING SECTION BY CHANGING ‘‘OFFSETS* 


160170 ;C2] CSR_ ADDRESS 

300 304) INTERRUPT VECTOR 
240 $2) ty 74 PRIORITY (5) 

0 POINT =1 PT TO PT = 0 
a} ome TRB. We ster STATION 
6] S$ 


KALANSSSSVS 


DD ceed ed ed ed ed ed ed ed eed 


SFESSESES 


bs et od a 


3£10) 
i ;C1 
0 71 
0 71 


RRR 
ONO 


2 
2 
2 
2 
2 
2 
; 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


L10000: 
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-SBTTL GLOBAL EQUATES SECTION 


3++ 
3 THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
3 ARE USED IN MORE THAN ONE TEST. 


EQUALS 
+ BIT DIFINITIONS 
B1T15== 100000 


BIT14== 40000 
BIT13== 20000 
BIT12== 10000 


© 
w 


+ EVENT FLAG DEFINITIONS 
:  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


EF .START== 32. : START COMMAND WAS ISSUED 

EF .RESTART== * : RESTART COMMAND WAS ISSUED 
EF.CONTINUES= 30. + CONTINUE COMMAND WAS ISSUED 

F .NEW== ? t A NEW PASS HAS BEEN STARTED 

EF .PWR== 28. + A POWER-FAIL/POWER-UP OCCURRED 


BSELERE 


BESS 





L 4 
CZDCLB DUP-11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83 13:19 PAGE 51 
CZDCLB.P11 19-JUL-83 17:12 GLOBAL EQUATES SECTION 
$o06 3 
220 3 PRIORITY LEVEL DEFINITIONS 


PRIO7== 340 
00 


SS 


2 
2210 
2211 
2212 
2215 
2214 
2215 
2216 
2217 
2218 
20 
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geeeee INDEPENDENT EQUATES 
001000 BUFLIM=512. 


MSGLIM=15. 


sMODE OF OPERATION EQUATES 
REC=0 


:CLOCK ae # a S TO BE 


PCLKEN= 111 
PCLKCT= 1600 


3PARAM WORD EQUATES 
STATB= BITO 


ABORT= BIT? 
OPTION TYPE EQUATES 


sMAX_BUFFER sit IN BYTES 
3. APPLIES TO TX,RX AND CMP BUFFS 
; NO. OF MESSAGES PER BUFFER 
(FOR EACH INCREMENT (+1) TO MSGLIM, 
ADD 6 WORDS TO THE POINTER TABLE 
(PTRTAB:) SINCE THIS MEANS 2 MORE 
*“POINTER’’ WORDS PER BUFFER. 


ee 3 MODE 
SMIT MODE 


3 TALK MODE 
sLISTEN MODE 


3NO_LOOP 

s INTERNAL TTL 
sCABLE LOOP 
MODEM LOCAL 
sMODEM REMOTE 
MOP 


LOADED IN CLK*S CSR 
sL~CLOCK CSR pr % ENABLE THE CLOCK 
P-CLOCK CSR VALUE TO ENABLE THE CLOCK 
$P-CLOCK COUNT SET REGISTER FOR COUNTER 


sOPERATOR AWAKE ASKED FOR 
3DATA ceeck K BIT 
ZRODEN $ STATUS on BIT 


3PRO NG ASKED FOR 
3PROTOCOL IS RUNNING(NOT STARTING OR MAINT) 
sFATAL PROTOCOL ERROR(SET IN PROTOCOL CODE) 


DPV= 0 sCODE FOR DPV CHAR MODE 


sEVENT LOG MESSAGE TYPES (USED TO LOCATE od he A atgeadl IN EVENT TABLE 
> AND DISPATCHING TO SEPERATE SECTIONS OF THE EVENT REPORTING SECTION) 
TXQ= ;TR SAT SSAGE QUEUED 


3 TRANSMIT COMPL 
RECEIVE BUFFER QUEUED 
RECEIVE COMPLETE 
3DEV ICE INFORMATION 
sDEVICE ABOUT TO INIT 
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DCK= sDATA COMPARISON RESULTS 
MSC= sMODEM STATUS CHANGE 
DLE= sDATA COMPARISON LENGH ERROR 
DDE= 3DATA COMPARISON DATA ERROR 
EOP= sEND OF PASS 
ABO= 3“C¢ 
sEQUATES FOR FLAG WORD 
ININT= BITC 3 INPUT _INT. REC. 
OUTPUT INT REC 
3RX QUED /COMPL 
3TX QUED/ 


D/COMPL 
EXPECT TO GET A RX COMPLED 
sEXPECT TO GET A TX COMPLETED 


Ssss 


at at 
WONOULWN—oO 


INDICATES TO TX INTERRUPT ROUTINE 
sTHAT IT IS T TRANSMIT BODY OF MSG. 
zs INDICATES TO RX INTERUPPT ROUTINE 
THAT IT IS TIME REC MSG BODY 
sTIME FOR CRC CHECK. 
z INDICATES THAT PAD MUST BE SENT 
INOVR= BIT10 zINIT OVER 
FIRST= 61T11 sFIRST TIME FOR CTS 


3 SPECIAL CLI CODES FOR *’CHAR’* ARGUMENT IN CLI CALLS 
: cate yD’ = cccenthensitoes DEF INI TIONS) 


WAWNAWWW 


uss 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


Re 


SISK 


RoPonononononononors 
WINN 
CAS 
WM 


2S 


CLIOC 
CLIDEC= 9. 
CLISTR= 10. 
: DEFS oe LINE INTERPRETATION ACTION VALUES 


MPOMoNeny 
Ww 


eR 
WVBOOONOU 


SETTRN=11 


PoNPons' 
EEF 
anes 
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SiZE=12 
mRats 


we AWW 
SwwHAe 


tert 


Rononononononofnonononoefry 
ee eye y 
PERE RNR 3 


; 
; 
; 
; 


SETET=60 
PeLLeues EQUATES USED IN REPORT CLI 
PHLP=1 sPRINT HELP MESSAGE 


3EX1 

REPORT EVENT LOG 
:* COUNTER R/ERROR 
:*COUNTER/FULL* 


sMORE C 
RPSWO=7 sVALIDATE OFFSET 


wv es 
SESSISSSESSEERES 


— DEVICE eat Feusres 
; MODEM SIGNAL BIT NITONS 

: IF SIGNAL NAILABLE N DEVICE, EQUATE NAME TO BIT POSITION, 
; ELSE EQUATE IT T 


CTS= 81713 sCLEAR TO SEND (CIRCUIT CB) 
DSR= BIT9 DATA SET READY (CIRCUIT CC) 


3eS3 


MOMQPIPSPONINININIADNINY 


eS 
23 


™ 
S 
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403 1 DCD= BITI2 
404 RTS= 861 Vs 
405 04 RI= BITI4 
4 004 SRD= B1T11 
407 
2408 
2409 
2410 

411 DEVICE SIGNALS 

41 ia la DTR= 171 

41 00001 HDPLX= BITS 
2414 000020 RXENA= BITS 

415 000040 DSITEN= BITS 

416 000100 RINTEN= BIT 
2417 000200 RXDONE= BIT 
2418 004000 RXACT= B1T11 
2419 000400 RESET= 61T8 
2420 001000 TXACT= B1T9 
2421 000200 TXDONE= BIT? 
2422 004000 TTLL= 81711 
2423 010000 CABLOP= 6B! 8 2 
2424 000020 SEND= 1T4 
2425 000100 TINTEN= BIT6 
2426 000400 Ss 1T8 
2427 001000 TEOM= BITS 
2428 100000 TERR= B1T15 
2429 100000 RERR= B1T15 
2430 010000 CRCOK= B1T1 
2431 100000 DSCA= BIT1 
2432 000400 STRIP= BI1T8 
2433 000226 SYN= 226 


3 
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sDATA TERMINAL READY 
EX MOD 


HALF DUPL 
RECEIVER ENABLE 


ot pag | ENABLE 


REC INT 
;REC DATA READY 
C ACTIVE 


zRE 
MASTER RESET 
TX ACTIV 


STK INT 


ENABLE 
31X START OF MSG. 
TK END OF MSG. 


X ERROR 
REC OVER RUN 


SYNC 


C WORD 


CHAR OK 
{DATA SET CHANGE A 
STRIP 


3TX BUFFER EMPTY 
sTTl LOOP BIT (INTERNAL) 
;CABLE LOOP(TURN AROUND) 


SEQ 54 
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~SBTTL GLOBAL DATA SECTION 
-SBTTL DEFAULT MESSAGE DEFINITIONS AND TABLES 


¥ THE GLOBAL DATA seer iOn CONTAINS DATA THAT ARE USED 
: IN MORE THAN ONE TEST. 


sMESSAGE BYTE COUNT TABLE 


EMSGO-MSGO 
EMSG1-MSG1 
eres nsee 
EMSGS-MSG 

EMSG4-MSG4 
EMSGS-MSG5 
EMSG6-MSG6 


ssesenssss 


fPoreroerae 
ee ed ed td od od 


SKERSSENSS 


0 : OUNT F RATOR SPEC'D ASG. 
EMSG8-MSG8 sBYTE COUNT OF RECEIVE BUFFER FILL PATTERN 


sMESSAGE ADDRESS TABLE 


DMSGAD: 
s ADDRESS OF MESSAGE 40 


MESSAGE #6 
OPERATOR SPEC*D MSG. 
SADDRESS OF RECEIVE BUFFER FILL PATTERN 


000 sMESSAGE OF ALL 0°S 
377 sMESSAGE OF ALL 1°S 
252 sMESSAGE OF ALTERNATING 1°S 
125 sMESSAGE OF ALTERNATING 0°S 

;““CCITT’’ 512-BIT (VS. 511 BITS) TEST PATTERN 
177603, 157427,031011,047321, 163715, 105221, 143325, 142304 
040041 ,014116,052606, 172334, 105025, 123754, 111337,111523 


030030, 145064 , 137642, 143531 ,063617, 135075 ,066730,026575 


~— =O =O 


052012,053627,070071,151172, 165044 031605 , 166632 .016741 


WSS, 

RER Y= 

fn 
oo 
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MSGS: A play bs na TEST PROGRAM'S (ITEP)*’ MESSAGE 
019310 .ASCII  <177><177>/$A THE QUICK BROWN FOX JUMPED OVER THE LAZY D0G./ 


eASCIZ <15><12><001><177><177><177><177> 


LPHA-NUMERICS (OR FUTURE COMM TURNAROUND MSG) 
eASCII /#$!"° 8 (04+, =.0123456789"; 3 <=>7@ABCDEF GHI JKLMNOPQRSTUVWXYZ/ 


3 


057135 eASCIZ ?/C\]*_%? 
EMSG6: 


VAAMMAMAUIUIU 
ed dd td ed ed ed ed 
WO NOUSWN—O 


-EVEN 


3 RRRAARARAAAEEAARERERREEERERERERAEEAEEEEREREEEEAEAEEREEEEEEREREEEEEEEEEEEE 


STHESE THREE STORAGE AREAS MUST NOT BE SEPERATED !!!! 
OPBFPT: .ASCII /2%NZA/ 
ae: -BLKB 82. sBUFFER FOR OPERATOR SPEC'D MESSAGES 


; THE ABOVE THREE LINES MUST BE KEPT TOGETHER 


3 RAEREAAARAAAAAAEREAREEAREREEEEEAEEAEAAAAERARAAAEAERAAEAAEEEREEEAAEEEEREE 


MSG8: -BYTE 33 sRECEIVE BUFFER FILL PATTERN 
EMSG8: am 


3 


2 
2 
r4 
2 
2 
2 
2 
2 
2 
2 
2 
r4 
2 


nN 

MAA 

Rororory 
USwn— 





CZDCLB DUP=-11 DATA COMM. LINK TEST 
CZDCLB.P11 19-JUL-83 17:12 


TORRES ER EE 


SBVRARWN—OO 


2 
2 
2 
2 
2 
2 
3 
2 
3 
rs 


MAMI 


3 


F 5 
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33 THE TRANSMIT HEADER MESSAGE WILL BE STORED HERE 
HDMSG: .BYTE 0 ILLER 


“BYTE 201 iMESSAGE TYPE WILL BE STORED HERE 

SIF CONTROL MESSAGE, TYPE IS STORED HERE 
«WORD [CHAR COUNT GOES HERE 
“BYTE [RESPONSE NUMBER 


-BYT 3 ° 


: .BYTE ADDR TO. 


-EVEN 
- WORD sCHARACTER COUNT OF HEADER 


3; THE RECEIVED HEADER WILL BE STORED HERE 
HDMSG: T 


1D: .BYTE 201 :MESSAGE TYPE GOES HERE 
TYP: SIF CONTROL MESSAGE, TYPE GOES HERE 
0 [BYTE COUNT GOES HERE 
RESP 
1 [MSG NUM 
1 TADDRESS OF TRIB 
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$26) :COMMAND LINE BUFFER, DATA LOCATIONS AND MESSAGES FOR ACTION ROUTINES 


3568 CMDBUF : ;BUFFER FOR OPERATOR COMMANDS 
KEYWD1: STHIS LOC WILL =1 IF CLEAR TYPED, 2 FOR SHOW, 
: A & IF RUN WAS TYPED, 5 IF HELP WAS TYPED 
QUAL FG: WORD STHIS LOC HOLDS ola is fen VALUE (SIZE OR COPY) 
HLPTAB: 


HLPEND: 
: INDEX TABLE FOR REPORT "RPT>" HELP MESSAGES 
RHLPTB: .WORD LP1 


=U 
Ouw 


ou= 


RHLPEN: 
SHTYTB: SHTYPO, SHTYP1 ,SHTYP2, SHTYP3,SHTYP4, SHTYP5 , SHTYP6, SHTYP7 


3 THE List & OF BYTES BELOW ARE THE FIRST BYTES OF THE PREDEFINED MESSAGES 
: USED “SHOW"’ THE TRANSMIT AND COMPARE BUFFER CONTENTS. 


SHTAB: .BYTE 0,377,252,125,203,177,043 


SHTEND: 


Ww 
= 


MODES: ; zADDRESSES OF MODE TYPES IN ASCII 


ss ssessss 


sADDRESSES OF LOOP TYPES IN ASCII 


3COMMAND LINE TRAVERSE LOCATIONS (USED BY ‘PSTRV*") 


PSBUFA: .WORD zLOC. TO HOLD ADDR. OF CMD LINE BUFFER 
PSTREE: .WORD 3LOC. TO HOLD ADDR. OF PARSING TREE 


a 
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PS$ACT: sLOC. TO HOLD ADDR. OF ACTION ROUTINE 
PSCNT: sLOC. TO BE A COUNTER LOCATJ 

PS$NUM: 3LOC. TO HOLD NUMERIC VALUF FROM PARSE 
PSRADX: D sLOC. TO HOLD RADIX USED(LJ) AND +/-(HI BYTE) 
PSNNUF : sRETURN =0 IF ENOUGH OF COMMAND FOUND 
P$GDBD: RETURN CODE 0 IF NO ERROR FOUND 
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MESSAGE BUFFERS AND POINTER TABLES 


00a BUFLIM = TRANSMITTER BUFFERS 
004150 00 H KB BUFLIM ;RECEIVER BUFFERS 
8 005150 dh CMPBUF : KB LIA ; COMPARISON BUFFERS 
006150 36 MSGLIM 3TABLE FOR MESSAGE ADDRS. & BYTE COUNTS 


3 END OF MSG. PTR. TABLE 
sFILLER FOR OVERFLOW OF RX POINTER TABLE 


Fd MESSAGE POINTER 
TRANMITTER BUFFER POINTER 

SCOMPAR ISON BUFFER POINTER 

3CMP_MSG TOTAL 

[COMPARE BUFFER CHAR. COUNT 

SCURRENT ADDR OF CMP BUFF TO ADD AT 


sDEVICE TX ADDR 

sDEVICE TX CHAR COUNT 

DEVICE TX MESSAGE COUNT 

sve MSG TOTAL 

;TX BUFFER CHAR. COUNT 

SCURRENT ADDR. OF TX BUFF TO ADD AT 


sDEVICE os ADDR 
DEVICE RX CHAR COUNT 
DEVICE RX MESSAGE COUNT 
RX MSG TOTAL 


sNUMBER OF OPERATOR AWAKE MSGS 
ZOPTTIONAL VARIABLE LOCATION 


ENADD: sEND ADDR. FOR DUMP 
BYTBIT: sBYTE BIT FOR DUMP ROUTINE 


ZOTHER MESSSAGE RELATED STORAGE LOCATIONS 


MSGTYP: .WORD TYPE OF DATA 0=0°S,1=1°S,2=10°S, 3=01'°S 
CCITT S=QUICK £ox OcALPHA/NOM, 7=0PER 


2 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
| 


3 CURR 
CURRENT POINTER 
ZCURRENT TX/RX/CMP START ADDD 
STOTAL CHAR COUNT NOT MORE THEN “BUFLIM’ 
3OF FSET COUNT 
; TEMPORARY LOCATIONS (USED A LOT) 


Soooooooooeoco oo 


:CONTROL OUT ERROR MSG. ADDRESS 
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CONTIN: .WORD sWORD FOR C 


BAD: -BYTE 
2683 006556 DATAWORD: . WORD 
2684 


sBYTE TO HOLD RECEIVED MESSAGE DATA BYTE FOR ERR REPORT 
ZSTORAGE LOCATION FOR TRANSMIT DATA 


2680 0 ONTROL IN 
soa) GOOD: .BYTE seve TO HOLD EXPECTED MESSAGE DATA BYTE FOR ERR REPORT 
0 
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sMORE INDEPENDENT CODE STORAGE LOCATIONS 


sLoc. TO HOLD LOGICAL UNIT NUMBER 
OC. HOLD Seat piat at wth 
;CLEAMUP. & EXIT FLAG -1 = EXIT TEST 
3LOC_TO HOLD FLAG (<1) THAT A "RESTART WAS GIVEN 
MODE OF OPERAT 


30CLT 
ASSIVE-LOOPBK, 
CTIVE=L =DOUN L.Le, S=TALK, 6=LISTEN) 
: MAINTENANCE LOOP TYPE (O=NONE, 1=INTERNAL TTL, 
=CABLE, EM- LOOPaK (LOCAL) 
eye MODEM-DIGITAL LOOPBK (REMOTE 5=MOP) 
L OR HALF DUPLEX FLAG (1=FULL tron P=TABLE) 


ARAME TERS 
O= STATUS MSGS TO OPR PRINTED (1=YES) 
DONE VOD MSGS (1=YES) 
} CHECK (Te Hf (PASSIVE) (1=YES) 


000000 RPASS: .WORD 0 3PASS NUMBER FROM RUN COMMAND 
000000 FLAG: .WORD 0 DEVICE FLAG WORD 


sMODE DISPATCH TABLE 
032210 MODE : WORD RXONLY ;RX ae DISPATCH 


E DISP. 
Tae MODE DISPATCH 


IIII2B 
OONAUW 


2 
2 
2 
2 
2 
2 
2 


CLOCK ot EVENT pee POINTERS 


sCLOc 
CLOCK K'S HERTZ RATE 
SCLOCK'S CSR VALUE TO INTRPT. ENABLE IT 


sPLACE TO KEEP TIME-SINCE-START 
TIMTCK: zPLACE TO KEEP # OF TICKS/SEC 
TIMER1: seven TIMER #1 (TICKS) 


T TIMER a (TICKS) 
<EVENT TaRER 6 (SECONDS) 


ASISVINTONTS 


aad 


Roponofonononohonononynongnyg 


° 
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evr 
000341 EVILOG: BLKY 905. 
000001 EVTEND: .BLKW 1. 


-SBTTL MODEM DATA SECTION 
MODS: .WORD 0 sMODEM STATUS 
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3TABLE OF MODEM SIGNAL BIT DEFINITIONS 


MOBITS: sCLEAR TO SEND (CIRCUIT CB) 
WOR sDATA SET READY (CIRCUIT CC) 
DATA CARRIER + Mi} (CIRCUIT CF) 
REQUEST TO SEND (CIRCUIT ~ 
RING INDICATOR (CIRC CUIT CE) 
nosiTe ZSECONDARY RECEIVE DATA (CIRCUIT SBB) 


3TABLE OF ADDRESSES OF MODEM SIGNAL MESSAGE POSITIONS 
MOMSGS: .WORD EVMCTS sCLEAR TO SEND (CIRCUIT CB) 
WORD EVMDSR 


SECONDARY RECEVIE DATA 


3TABLE OF ADDRESSES OF EVENT DESCRIPTION MESSAGES 
: ORDER CORRESPONDS TO MESSAGE TYPE VALUES 


EVTLST: Byer td MESSAGE QUEUED 

ANSMIT OF MESSAGE COMPLETE 
RECEIVE MESSAGE SPACE QUEUED 
ZMESSAGE RECEIVED = RECEIVE COMPLETE 


[DEVICE INFORMATION 
DEVICE INITIALIZE STARTED 
=D COMPARISON DONE 
:MODER STATUS CHANGE 

DAT A COMPARE LENGTH ERROR 
DATA wt y DATA ERROR 
SEND OF PASS 

37°C ABORT 


WENWNN— 
BANSASS AS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


0 
0 
0 
0 
0 
0 
0 
0 
0 
015365 
0 


So 
= 
w 
Se 
SS 


sLOCATIONS USED DURING EVENT REPORTING 
ML ron : TEMPORARY LOCS TO KEEP EVENT TIME WHILE REPORTING 


TEMP. LOC. TO HOLD ADDRESS DURING EVENT REPORTING 
: ee ee BYTE COUN ce ee te 
: ee ee OTHER DATA ee oe ee 
TABLE 


ROTDSP: -— s TRANSMIT QUEUED ENTRY DECODING 


POPININONONINDPNONNoNoNoNofry 
SSseIRaKASISITI 


da] 
33 


PORT 
RPTDLE SDATA COMPARISON LENGH ERROR 


ELEPEPES. 
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sone 007676 022566 RPTDDE ;DATA COMPARISON DATA ERROR 
2803 007700 022512 . sEND OF PASS 
2 O22512 . 3“C ABORT 


7704 000000 : i LOCS TO HOLD DATA FOR EVENT REPORTING 
706 000000 : AND SHOW MODE,... SUBROUTINE 


0 000000 
000000 
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~ SBTTL COMMAND LINE ACTION TREE 
; SAMPLE CLI TREE NODE (ALWAYS AT LEAST 1 WORD) 


! ACTION ! CHAR CODE ! 


! MISS DISPLACEMENT ! ONLY IF *MISS** ARGUMENT DEF INED 


! NEXT NODE DISPLMNT ! ONLY IF ‘ASCII’ ARGUMENT DEFINED 


! ASCIZ MATCH STRING ! ONLY IF “‘ASCII’’ ARGUMENT DEFINED 
: (.EVEN) ! 


CLITRE: 
FIRST KEYWORD 
N10$: cle 
NG&2S: 

N43$: 

N44S$: 

N45S: ELST hu N46$,<"RUN'> 
N46S: cLISTR NOTNUF ,N40$,<"DUMP"> 


n50$ 
Nn4OS: cL TSTR. CLEAR,N20$,<"CLEAR"> 
LIBR. NOTNUF .N100$ 
N20$: NOTNUF ,N 


cuisin, SHOY ‘N58. <"HOW'> 
N25$: CLIS 1stk 6" N30$,<°ET'> 
sien BR,0,N110$— 3 YES, 
N30$: BRAebn ‘OTHERWISE TLL 
;SECOND KEYWORD (MODE=) FOR RUN COMMAND 
N80$: cu ch srag 0,N30$ :SKIP_LEADING SPS, IF NONE-ERR 
[1S NEXT WORD *MODE=" 


1EX1,0— 
TR, “HLP, N43$,<"HELP'> 


eeeeeee, AQ 


] eee 
m 
and 
m ” 
| mm 
wn & 
“mn << < 
a Mme Mem ih 
<nNNnunnnw 
a) 
[7.17 1 ea) 
> Ae 
2 xz 
oDMmM 
oom= 
“~~ Ww 
b c= 
<6 § 
~~ ° 
‘S's,a> >g>3.5 
B°-22 36 san 
79 308 go 
—z2mz >: :zm 
s's8 32 “S 


S 


& 
mm 
+ 
—_ 
3 


N81$: STRANOTNUF N30$,<"MODE "> 
Ste ,N82$,<"ACTIVE'> 
.N83$,<"PASSIVE'> 
PASSE : a N115$ 
NB4$,<"RECEIVE'> ; : 
BR if N115$ : Y ECVE'.BR N115$ 
: ISTEN” 


STR,L tis .N85$,<"LISTEN'> 
hates” yan “Bt N1158 


I 
188.6 

1S Rebe a, .N86$,<*DOWNL INELOAD*> DOW. . 
1BR,0,N115$. : IF ves L'.8R NiiSS 
yer A A308 SIS NEXT 


ned eh eed 
So 


FSVRSRE 


N8&2$: 
N83$: 
N84$: 
N85$: 
N86$: 


NM 


Lis 
ist 
TBR 
IST 
I 


SooooCoooeocecoseO 
a ad ot od 
SOoOOoOoOoSooooooeoeo 
SSRN ™m 
mececacananaeanse 
ererereereererrccce 
tems bey Pe tee Beet Ene Dene Fee bee bes ace De Feo 
ANQMQAAMA2OAAA 
-ereceeerce 
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; 1S REST OF WORD \RANSMIT 


ISTR gr naniag -Ne7S. o<"RANSMIT*> 
ict IF YES, DO “‘TRANSM’’,BR N115$ 


1BR, SIA pee dpc at Res OF (WORD NK N115$ 
; IF WO ERROR ~ EXIT 


CL 
CL 
CLIS 
CL 


LaSP At ANS _—s “SKIP LEADING SPACES NONE sERR 
eee, N104$,<"EXPECTBUFF *> 31S NEXT WORD ° 
CLIEXI. : IF YES. DO cLRRENB, exit 
CLISTR,.CSHTRN,N30$,<* TRANSMI TBUF F *> 31$ NEXT WORD "TRANS. . 
CLIEXI.O : IF YES, DO CLR TaN EXIT 
SIF NO = ERROR = EXIT 


(FOR SET) 

LISPA,0,N30$ 

CLISTR, SETEXP,N112$,<°EXPECT "> 

CLI N120$ 

CLISTR, SETTRN,N30$,<° TRANSMIT "> 
CLIBR,O,N120$ 

3GET ADDRESSES FOR DUMP COMMAND 

N5O$: CLI CLIALP,0.N5S1$ 


CLIOCT. tS “30S 
N125$ 


<'B> NMPOLN 
CLiBR, nea. 

SQUALIFIERS FOR T 

N115$: CLI 

NTS, 

N116$: 


HE RUN COMMAND 
CLIALP, eo a ae 
n125$ 
NOUNT16$-< "NO"> 


Nt 

<3 0 CHECK N117$,<*HECK"> 
CLIBR,O,N115$ 

er ers 


LIBR,0,N 
CLISTR,ECHO,N119$,<°ECHO'> 
CLIBR,O,N115$ 


BER EE EEE 


Bo 


328 
Siete N130$,<*ROTOCOL'> 


cLISTR Theo <N308. »<"ASS*> 


CLE STR MOS ee 31$,<"MODEM’> 


CLISTR,O.N30$,<*LOOP*> 


VVVYyVyy 


Mn 
VU SOWNANEWUsO 


AO |ANM200 [200° 
er Frere Feece 
ome tg Oe ee bs ee beg = bee Some Ooms eg 


SSS 


3 
2 
a 
= 
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CLI CLIBR,O,N140$ 


iGer mw * TYPE FOR SET MESSAGE COMMANDS 
N120$: <*=>,0,N30$ 


3. LOOK FOR DEFAULT MESSAGE 
N60$: gt ay gomaSis NOIS.<"ONES"> 


ELST tn S28, <"ZEROES'> 
cLISTR, cnsGe N63$,<"1ALT"> 
ELST ena 3,N64$,<"OALT"> 
ELisTA Ens : N65$,<°ITEP"> 
ELSTA, Ems Gt, N66S.<* CCITT’> 
mSG6 N67$,<*ALPHA'> 
SETET .N6BS.<* TRANSMIT"> 


Sx 


SoReRs 
ANAS 
AAOAIAAIAAOOO 


oN 
ONO 


ensGa 
2N 
cn 


fey fee} eed feng Gana) Dene tena) femet bent bang bene fren beat Ome (ed be 


Noss: 
n70$: 


N71$: 
N72$: sONLY A~Z,SP,TAB, OR 0-9 BETWEEN ‘"*S 


CL $ 
N73$: CLIERRBADCHR zPRINT ERROR IF NONE LEGAL CHAR FOR ‘’’S 


3GET GUM ft TERS (SIZE OR COPY) FOR SET MESSAGE COMMANDS 
1 CL ye yt Ta 


Sara 
ELigin SIZE: N122$,<"SIZE"> 
CLI SE: QCOPY .N30$,<*COPY'> 
CLIBR,O,N126$ 


:NUMER FOR SIZE OR C 

Ni26$: CLI <'=> = 308 
CLI CLIDEC NUM N20$ 
CLI CLIBR, TESTS 


3GET MAINTENANCE LOOP TYPE FOR RUN ‘LOOP’* QUIALIFIER 
N140$: CLI <'=>,0,N30$ 


—— yee te 
SNS VOSS 


= 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


ad ad a a a ee a aD ad et at et at a od ot I nd 


mel ood ok tel ok ol ses] sl ol el al Sok al Sk tl al ak al ak aed 


AAIEAAOOAO AQOOOoo 


Ged heng bad beag beet Gees bean 


2938 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
$926 
295 

2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2965 
2964 
2965 
2966 
3968 
2969 


BY 
33 


N141$: 
N142$: 
N143$: 
N144$: 


ELIBROMISS st cscaners 


11 

CLISTR éBLL N143$,<" CABLE"> 
CL1BR,0,N 
CLISTR,L (ROL N144$,<"LOCALMODEM'> 
CLIBR,O,N115$ 

CLISTR RNDLOP.N30S .<*REMOTEMODEN'> 
EL1aR ONT $ 


“I 
SRN 
Soooooooo 
eb Ded ed et 
a ed ed eh ed 
SRSSNAVS 
fatale taialalm ym) 
cece 
me Ome tas fee Pees fener trent Boe 


{VBIBYY 





CZDCLB DUP=11 DATA COMM. LINK TEST 
CZDCLB.P11 19-JUL=83 17:12 


011432 
011436 
011442 


011446 


E 6 


MACY11 30A(1052) 20-JUL-83 13:19 PAGE 70 
COMMAND LINE ACTION TREE 


sGET LINE NUMBER FOR “Passe RUN QUALIFIER 
iisoss Cul 

CLI PASC N30$ 

CLI CLIBR,O,N115$ 


CLIEXI,0 


3 END-OF -LINE 
n125$: CLI 
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CZDCLB_DUP=-11 DATA COMM. LINK TEST MACY11 30A(1052) i Whi 13:19 PAGE 71 
CZDCLB.P11 19=JUL=83 17:12 COMMAND LINE ACTION TREE 


sDEVICE DEPENDENT STORAGE LOCATIONS FOR 
; CURRENT DEVICE PARAMTERS 


sRECEIVE STATUS REGISTER 
REGISTER 


vim 
OfNOS 


TA BUFFER 
SMIT STATUS REGISTER 
; TRANSMIT DATA BUFFER 


ooooo 
pa or er er = 


3 INPUT_INTERRUPT VECTOR ADDRESS 
SOUTPUT INTERRUPT VECTOR ADDRESS 
ZINTERRUPT PRIORITY 


Se 


sTHIS WORD IS BROKEN DOWN AS FOLLOWS 
BITS 0-7 =SYNC WORD 
‘BIT 9 = CRC ENABL 


sBIT 15 = DDCMP MODE 


° 
— 
th 
} 


sCURRENT MODEM 

2 IMAGE OF RXCSR 

3 IMAGE _OF RXDBUF 

3MSG PTR.FOR HEADER OR CONTROL 
zmSG COUNTER OR CC 


CHAR COUNT. 
3S YNC vone os TSOM BIT. 


> 
pat + 
Ss 


Sooooooooooeo 

pear Soar Peer Peer ee Per Per Per er er er ey 
SARNOSENS 

Sooooooooooeoo 


Nm 
™ 


3 COUNT 
31=REMOTE NODE ITEP,O=NON ITEP 


a 
2994 
2995 
5997 
2998 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3008 011470 
3009 
3010 
3011 
3012 
3013 
3014 
3015 
3016 
3017 
3018 
3019 
3020 
3021 
3022 
3023 
3025 
5 
3026 
3027 
3028 
3029 
3030 





CZDCLB DUP=11 DATA COMM. LINK TEST 
CZDCLB.P11 19-JUL-83 17:12 


026520 


Soooooceo 
22254244 


4 
$s 
3043 
3044 
3045 
3046 
3047 
ore 
eh 
3051 
Be 
3054 
3055 
3s 
3058 
3059 
3060 
3061 
ss 
3064 
3065 
3066 
3067 


MACY11 aoe 5 sae 13:19 PAGE 72 
GLOBAL TEXT SEC 


-SBTTL GLOBAL TEXT SECTION 
THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 


3 MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
; MORE THAN ONE TEST. 


.SBTTL DEVICE SUPPORTED 
: NAMES OF DEVICES SUPPORTED BY PROGRAM 


DEVTYP <DUP=-11> 


-SBTTL PROGRAM IDENTIFICATION 
: TEST DESCRIPTION 


, DESCRIPT <DUP=11 DATA COMM LINK TEST > 


LSOVTYP:: 


ASCIZ  /DUP=11/ 
-EVEN 


“" ASCIZ /DUP=11 DATA COM 
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CZDCLB DUP-11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83_ 13:19 PAGE 73 
CZ0CLB.P11 19-JUL-83 17:12 GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII INFO 


GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII INFO 
/DCLT>/ 
/RPT>/ 
/ENZA?1LL_CMD-BAD SYNTX?/ 
/EINZA2INCMPLTE CMD?/ 
/ENZA2NUM TOO B1G?/ 
AD IX?/ 
VALID ONLY 


aa 
o- 
= 
An 
Oooo 
MUM 
mrmonr 
Nae 
tS A 


-_ 

rn 
SoaS3 

AAO & 


OPEEE 


IN AC 
IN PA 
P, TAB" 


SLSLEERE 
Ftatatatatatatatatatal 


/ZNZA2TRANSMIT & EXPECT LIST MUS IDENTICAL FOR LOOP?/ 
JINTATHIS 1S OCLT. TYPE "H'’ OR ''?°* FOR DETAILS/ 


/DCLT CMDS:/ 
LEAR OR 


MAMMA AU UIT 
BUEXSSNEN EEE ES 
FOCOUOUUIM 


RRR 


MMMNNINN——— 

MUNN Son 

SINT IT 
oe eee eee 


i EXPECTLIST OR TRANSMITLIST/<15><12> 


Se 
3 


2 
BEERS 


RASARSER 
guee 


PIMIO & QA NNN 
Certevestu 
a 


MONS 


ART-END/B? 
XPECTMSG OR TRANSMITMSG=TYPE/SIZE=N OR /COPY=N? 
/ SET EXPECT=TRANSMIT/ 
TYPESONES ZEROES. 1ALT .OALT ITEP .CCITT ALPHA? 


? 

/ OR SPCD=A-7,SP, 

; RUN_MODE=MTYP/LOOP=LTYP/CHECK, PROTOCOL , STATUS .ECHO,.MODEM,PASS=N? 
/ 


SOWMUIN 
PURGING me Oe Oe RR PRR RRP 


MTYP=TRAN,REC,ACT,PAS, TAL,L1S,DOWN/<15><12> 
LTYP=INT,CAB,LOC,REM/ 


C 
ASC 
ASC 
ASC 

C 
ASC 
ASC 
ASC 

C 
ASC 
ASC 

C 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 


feed faeag fag fant fheeg bemy Gent tent Dene fog Benn dea feae feng Bang em fey dang Baw es my fag Pee Be 


wn 
wn 
AOOON AAAMAAOOAAOOM Me Me AON 
ENR Ne 


-OvVInNuir vi 


/ENZATYPE *H"* OR **?°* FOR HELP! / 

/DCLT REPORT CMDS:/ 

/LOG_= PRINT DCLT EVENT LOG/ 
PORT LEVEL/ 


ISOM SeowosSe 
Sze 


s 


No-So— 
io 


/HELP = PRINT THI SAGE/ 

2COUNTERS/SW = PRINT DDCMP COUNTERS? 

hhh he | ata /OF F SET=NN(O)? 
/ZNZADDCMP_COUNTERS VALID ONLY WITH PROTOCOL SELECTED./ 
2ENZAMSG: TYPE=ZTZA/SIZE=2D3? 


yews i 


mw 
—wWw 
oo 
83k 
—evas — od 
pay —_ 
Kako f=] 


S 


SESE 
MVMiMuvvi 
teey 
ee pete 
N=O=Ss 
=NNVUMIUISW 
Ss 
PPS 
ae 


OLN = 
So 
wm 


& 
Ww 
PMS 


WE =—WN= OO 


a3 
$2 


Ve oe 


/OPR_ SPEC/ 
/RECEIVE/ 
/TRANSMIT/ 
/PASSIVE/ 
/ACTIVE/ 

ee IMCL ORO? 
/LISTEN/ 

4/ 


?/LOOP=? 


? INTERNAL? 


& 
WiwinuhD 


Ret y 
Bees 
FS 
SS SSESEF 
SWUSOW— SO 
S 
woe VU 
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CZDCLB_DUP=-11 DATA COMM. LINK TEST MACY11 lg 20-JUL-83 13:19 PAGE 74 
CZ0CLB.P11 19-JUL=83 17:12 OBAL FORMAT STATEMENTS, MESSAGES, AND ASCII INFO 
056108 Dugan : ?CABLE? 
046305. 0 6514 : ASCIZ ?LOCALMODEM? 
?REMOTEMODEM? 
052524 


—_ 
eo Om =r 
PMNOAMNAMANAWA 


z 
se 


014065 /TLK>/ 
014072 /THIS A 50. OR 60. HZ. LSI-11:/ 


g 
= 
Py) 
& 


; FORMAT STATEMENTS USED IN PRINT CALLS 


4 
a 
> 


eASCIZ /%NZADOWN LINE LOAD NOT SUPPORTED BY THIS DEVICE/ 


So 


onw 
> 
an 


/ZNZACLOCK NOT FOUND/ 
/ZNZABAD CLOCK = PROGRAM WILL — ON “‘TIMEOUT’*! !/ 
MAX. CHAR. on COUNT EXCEEDED - 


ae 

RR 

UMMM UII UII 
L—) 

ger 

we 


10 
34 
5 
5 
3 


NAS 
- 
RRS= 
Re 
PE pPP 
7 


ENESSEANGD T EXCEEDS. "BUFF LIMIT = MSG TRUNCATED/ 
?2NZS Leas =ZTZTZTZA/PASS=225? 

?ENZSSZS52S TA/3TEA/RTZA/ZTXA/3T2A/21? 

JISSTATOTAL MISMATC oe = 2D5/ 

/ENZS3ZACALL 

YE a ake COUNT =XD5%8 ZARECEIVE COUNT=2D5/ 
/MODEM STATUS CHANGES FOR THIS PASS WERE.. 

/%SSZAHARD CHANGE SSEDSEARSSEAGLITCHES=XD57 


=POPIMD ENN 
M2 
Morven 


 trtrtrtrs 
“ AnNNHMHHHNMNYM 
AAAAAAAOMAQANANDO 


on 
KFSRIES 

So 

wm 

NS pay 

PILSTLE 
esessesese 
aoe 
— 

Wiad = ill 
*eeeeeee#eee#e#e#8e#8e#8e# 
a 
ery eee Bee Mea) Gast tee been beat bees ee Ge ba bee 
LE te Le Le le Le Le Le Ld 


oOo 
= 


EFI: 


aR 
— 


sEVENT DESCRIPTION MESSAGES 


/TRANSMIT MSG QUEUED/ 
/TRANSMIT MSG COMPLETED/ 
/RECE'VE SPACE QUEUED/ 
/RECEIVE MSG COMPLETED/ 
/DEVICE ERROR/ 

/DATA COMPARISON STARTED/ 
nevis INIT AND SETUP/ 

/DATA COMPARISON LENGTH ERROR/ 
/DATA COMPARISON DATA ERROR/ 
/END OF PASS/ 

/MODEM STATUS CHANGE/ 


* 
>> 
nnn 
- 

oat ew 
~ 


MOMININ 
oo 
NEN NEN 


Wiis 


Sooooooeoooo 
ed ed ed ed ed eed eed ed ed ee 
MUMIA 
Cah tei 

WOM! 
JN OMO 
Ve = AI = 


—S 
ww 





CZDCLB DUP-11 DATA COMM. LIK TEST 


CZDCLB.P11 19=JUL-83 


015460 


COooooooooooo 
oo ot oh I I 


ed ad oh od od od od 
o 
S 
IN 


041536 


So 
w 
— 


ane 
R RRRERRRRRKES 


= 
WAMU 


wu 


4 
~ 
Bawnaaes 


= 
o 
¥8 


$38 
= 
MMIII) 


S 
SERELEL 


17:1 


g 
ex 
So 


Mmrn— 
meee 
ad ob fT 
FUSIR AAA 


Soooooooooo 
— ih 
yy ee 
ea 


WAN MMIPUPUMUNUNIU 


022516 
022465 
022516 


oo 
ow 
Oo 


RRRRRRLE 
SSooSooauN 


031523 


022463 


042117 
042117 


047502 


S 


05 


Ss ssesssss 

W WWRWRNWW 

> aba’ ~TD 

NM NVE=00500> 
W WWUNWWE oon 


022470 
034523 
040 
040 
040 
040 
040 
040 


Morn 
BEE 


& 
w 


RRRLRELGK 
ESRSESESE 


RAR 
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MACY11 kh 20-JUL~83_ 13:19 PAGE 75 
OBAL FORMAT STATEMENTS, MESSAGES, AND ASCII INFO 


EDABO: .ASCIZ /*C ABORT/ 


SEQ 74 


sEVENT REDORT ING ME 

BASM3: .ASCIZ at he 

BASM2: .ASCIZ Artie 

BASM1: .ASCIZ /2ZNZ06/ 

NULEVT: .ASCIZ /ZNZATHE peer EVENT LOG IS EMPTY 

EVTFO: .ASCIZ /ZNZA>>> T EVENT 06 ~_ cececqnsqsssscsesosescececneees 
EVTF1: .ASCIZ 7ANIDSRA: rs ZA:%22%S 

EVTF2: .ASCIZ /ZNZS SauA ADDR OF see OOxSSBABYTE COUNT=2D5/ 

EVTF eASCIZ /ENZS3ZTIN/ 

EVTF3C: .ASCIZ /2S3%06%S3%06/ 

EVTF3D: .ASCIZ /SSipEESSEDCES3E1/ 

EVTF4: .ASCIZ /2ZNZSSZAADDR MSG=Z06%S3ZABYTE COUNT=ZD52S3ZANO. OF CMP ERRS=ZD5/ 
EVTF4A: .ASCIZ /2ZNZS3SZAADDR of MSG=Z06ZS3ZARX BYTES=ZD5ZS3ZACOMPARE BYTES=205/ 


EVTF4B: .ASCIZ /ZNZS3ZAPASS=2D52S3ZAERRORS=2D52S3ZASTRI-TO=205/ 
EVTFSA: .ASCIZ /%SSZABYTE# IN MSG.=ZD5ZS3ZAEXPTD=Z032S5ZARECVD=203/ 
EVMOCG: .ASCIZ /ZNZS9ZACHANGED T0:/ 


3 RERRAEAAEAAEEAEEREEREREREEEEEREEREREEREREREREEEREREREEEEEEEEREREEEREE 


3D0 NOT SEPERATE THE NEXT LIST OF MESSAGES = MODEM SIGNAL HEADER AND REPORT 


EVMOHD: .ASCIZ /ZNZS8ZAMODEM STATUS: CTS DSR DCD RTS RI SRD/ 
EVMOST: ar JENES9ES 9ZS5ZA/ 


EVMCTS: . *x,40,40,40 
EVMDSR: .BY *x,40,40,40 
EVMDCD: . *x,40,40,40 
EVMRTS: *X,40,40,40 
EVMRI: .BYTE  'X,40,40,40 
EVMSRD: .BYTE  ‘'X,40,40,40 
BYTE 
-EVEN 
sEXECUTION STATUS MESSAGES TO BE PRINTED TO KEEP OPERATOR AWAKE 
CR: eASCIZ 3CR FOR LINES IN A ROW 
STXQ: .ASCIZ /2S3ZATXQ/ 3ABOUT TO TRANSMIT 
STXC:  .ASCIZ /2ZS3ZATXC/ sTxX C TED 
SRXQ: .ASCIZ /ZS3ZARXQ/ sABOUT TO RECEIVE 
SDVE:  .ASCIZ SSZAERR/ sDEVIC ROR 
SCM: eASCIZ = /ZS3ZACMP/ sABOUT TO DO DATA CHECKING OF RECVD VS. EXPTD 
SDVI: .ASCIZ /2S3ZAINI/ sDEVICE ABOUT T INITIALIZED 
SCML: .ASCIZ /ZS3ZACML/ sC ARE LENGTH ERROR 
SCMD:  .ASCIZ /ZS3ZACMD/ sCOMPARE DATA ERROR 
SEOP: oo 2 /%S3ZAE0P/ SEND OF PASS 
SMSC: .ASCIZ /2%S3ZAMSC/ sMODEM STATUS CHANGE. 


GLMSG: .ASCIZ /MODEM STATUS GLITCHED/ 
HRDMSG: .ASCIZ /MODEM STATUS HARD ERROR/ 


K 6 


CZDCLB_DUP-11 DATA COMM. LINK MACY11 lt 20-JUL-83 13:19 PAGE 76 
CZ0CLB.P11 19-JUL-83 17:12 OBAL FORMAT STATEMENTS, MESSAGES, AND ASCII INFO 


—“ 
~“ 
— 
w 
o 


/MASTER poset DID NOT WORK/ 
<15><12>/ RXCS TXCSR / 
"= ch AR T0 S$ me 
<15><12>/ rep / 

T T TING FOR x... “OR TX TO COMPLETE/ 


ee 


MIO 
=a 


C 
<15><12>/ RXDBUF RXCSR/ 
/R cEIVER OVERRUN/ 
<I ><12>/_ RXDBUF RXCSR/ 

cisSet ouT IN START, STACK, ACK SEQ/ 
<I ><12>/, yfDATA SDATA/ 

T RETURN MODEM READY/ 

A NS WOXCSR TXCSR/ 


lola lololololololalolololojn) 


2239 8 SS Oo 
NNN 

ew 

WN 

~N 

2 


5 
r 
2 
2 
02 
2 
2 
02 


>>> PrP rrr ry 
AnNnNnnnnnnunwnno 
PAOAAOAAIOOOAOOaony 
fmed amet Deng Pome ig fg Gent tg Fd ee Og Genes Oo 
PNG ae Pay a PG ds Pg es Py be Py es Py te 


Sst 


USu S 
GSLSrSUses 
NN —OWNINUUOOOoO— 
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CZDCLB DUP=-11 DATA COMM. LINK TEST MACY11 30A(1052) eon ee 13:19 PAGE 77 
CZDCLB.P11 19-JUL=83 17:12 GLOBAL ERROR REPORT SECTION 


~SBTTL GLOBAL ERROR REPORT SECTION 
2 THE GLOBAL ERROR REPORT re sutee be MESSAGE PRINTING AREAS 


3 USED BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. PRINTB 
: _(BASIC) AND PRINTX (EXTENDED) CALLS ARE USED TO CALL PRINT SERVICES. 


BGNMSG ERR1 Sees 
PRINTB #EVTFSA,OFSET,<B,GOOD>,<B,BAD> ; INDIVIDUAL DATA COMPARE ERROR 
BAD. (SP) 
<(Sb ¥ 


SP) 
tte stSP) 
#EVTF5SA, =(SP) 
#4,-(SP) 
SP;RO 


CSPNTB 
#12,SP 


CSMSG 
ERR2 


ERR2:: 
WEFM2, TEMP4 sTOTAL DATA COMPARE FAILS ERROR 
pm Soo oa 
#EFM2,-(SP) 
SP) 


~“ 
S 


sy 


BSe8 


Sooooooooeoeeo SOoCooeoeooo 


ERR10 


#EFM11,R4, TEMPS ; 

006542 MOV TEMP3,-(SP) 
R4,-(SP) 

014707 MOV #EFM11,-(SP) 

000003 3,-(SP) 


sesssesses 


iY 
ASN 


SPNTB 
000010 ADD #10,SP 
ENDMSG 


me ee ee ad ed at at ee ae a ot oh = 
“J 


SNS 


3 


WIWWNIANININNNINAAANA 
RRS 


a a tt se ts ee 


3 
SWN-o 


CSMSG 
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CZDCLB DUP-11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83 13:19 PAGE 78 
CZ0CLB.P11 19-JUL=83 17:12 GLOBAL ERROR REPORT SECTION 


BGNMSG ERR4 aca 
PRINTB #EFM13,MHRCNT,MGLCNT MODEM STATUS CHANGE 


MGLCNT (SP) 
MHRCNT ,-(SP) 


= a I 
a at a I 
Oaonou 


#10,SP 


CSMSG 


SPRINT THE 2 OCTAL #°S IN TEMP3/4 


BGNMSG ERR13 


PRINTB #EVTF3C, TEMPS, TEMPS 
013746 


CSPNTB 
#10,SP 
ENDMSG 


CSMSG 


SPRINT THE 2 OCTAL #°S IN TEMP3/4 
: AND THE MESG. WHOSE ADDR. IS IN CONOTM 


BGNMSG ERR14 
PRINTB #EVTF3D, TEMPS, TEMP4,CONOTM 


ARARAAADE REE ERE E RUN MANA UNUMMIUNID 
RARUNULSSSELS SEGA SESBLEAEUNASSSVETRAGLS 


SSSLEALAVIS SSN 


CONOTM,=(SP) 


TEMP4 ,~(SP) 


ENDMSG 


7726 EXIT MSG 
7726 


3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
: 
3 
3 
3 
3 
3 
3 
3 
3 
3 
; 
3 
3 
3 
3 
3 
3 


a a a st 





CZDCLB DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) es 4 13:19 PAGE 79 
CZ0CL8.P11 19=JUL=83 17:12 GLOBAL ERROR REPORT SECTION 


3171 017730 177772 
3172 
3173 
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CZDCLB gig ah cor LINK TEST MACY11 30A(1052) 20-JUL-83 13:19 PAGE 80 
CZDCLB.P11 17:12 GLOBAL SUBROUTINES SECTION 


1 ~SBTTL GLOBAL SUBROUTINES SECTION 


AA 
a st os SS 


BELESRACLSSEVEALAKSS SaNo 


THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
3 THAT ARE USED IN MORE THAN ONE TEST. 


- SBTTL CLOCK SETUP SUBROUTINE 


"FUNCTIONAL DESCRIPTION: Paylite 
THIS SUBROUTINE SETS UP THE CLOCK INFORMATION TABLE FOLLOWING A ‘‘CLOCK 
CALL EXECUTED IN THE INITIALIZATION CODE. BUT SINCE THE, ‘CLOCK’ CALL 
SAYS NOTHING ABOUT AN LSI~11°S CLOCK, THIS ROUTINE IS ONLY USED IF A 
PINE OR P=CLOCK 15 FOUND. 


WWWWNW NWA 


aS et ti 


TS: 
R1= POINTS TO SUPERVISOR SPACE WHERE CLOCK INFO WAS RETURNED 
R2= POINTS TO “‘CLK’’ TABLE WHERE CLOCK INFO WILL BE KEPT 


IMPLICIT INPUTS: 
THE SUPERVISOR SPACE WHERE CLOCK INFO WAS RETURNED BY THE ‘‘CLOCK’* CALL 


WAWANWWWAWAG 
= od 


PUTS 
PCLKCSRY GETS LOADED WITH THE CLOCK’S CSR ADDRESS 
"CLKBR’’ GETS LOADED WITH THE CLOCK’S INTERRUPT LEVEL 
“CLKVEC’’ GETS LOADED WITH THE stock S_INTERRUPT VECTOR 
"“*CLKHZ At LOADED WITH THE LINE FREQ. (HERTZ RATE) WHICH DETERMINES 
THE NUMBER OF TICKS IN A SECOND 


33 


Ww 
ox 


: 


CALLING SEQUENCE: 
JSR PC,CLKSET sCALL CLOCK SETUP WITH R1 & R2 SETUP 


CLKSET: 
MOV 


320 

3204 
3307 
3208 
3209 


SLOAD CLOCK'S CSR ADDR. INTO “CLKCSR’: 
ZLOAD CLOCK'S INT. LEVEL INTO “'CLKBR 
ZADJUST THE INT. LEVEL FOR LOADING INTO 
; THE PSW WITH A ‘‘SETVEC™ CALL 


oo 
== 
for 


QUikwWny—O 
NIRPOPONINSNINININY 


(R2)+ 
(R1)+,(R2)+ zLOAD CLOCK'S INT. VECTOR INTO *CLKVEC’* 
setts o(R2)+ 3LOAD CLOCKS HERTZ RATE INTO “’CLKHZ"° 


—— 
ror 


ee ee ed ad ed ed ed 
on 


RORSRORSRI FORGO RORGAD 


Nm 
ooon 
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CZDCLB _DUP=-11 DATA cow LINK TEST MACY11 30A(1052)_ 20-JUL-83 13:19 PAGE 81 
CZ0CL6.P11 19=JUL=83 17:12 CLOCK SETUP SUBROUTINE 


im 
= 


oSBTTL CLOCK INTERRUPT SERVICE ROUTINE 


"FUNCTIONAL DESCRIPTION: 
THIS IS THE CLOCK INT ae ante MD ie WHICH TAKES CARE OF 
KEEPING THE °'TIME“SINCE~ ee te ti NG DOWN ANY OF THE 
EVENT’ TIMERS, THE TIMER RS AR E USED TO TIME COMPLETION OF DEVICE 
REQUESTS. THE “‘TIME-SINCE=START’' IS USED TO BE LOGGED WITH EACH ENTRY 
INTO THE EVENT LOG. 


IMPLICIT INPUTS: 
TIMTCK: THE Sid a TO Se LEFT TO BE COUNTED UNTIL A SECOND 


CLKHZ: THE NO. OF TICKS IN A SECOND, DETERMINED BY, THE SYS. LINE FREQ. 
TIMMIN & TIMSEC: CURRENT VALUE OF OF "'TIME-SINCE-STAR 

IN MINUTES & SEC CONDS ¥ 
TIMER 1,2, & S: CURRENT VALUES OF THE “EVENT TIMERS 


IMPLICIT re ee 
NEW 


MOND Mn 
CONAUSWI 


w2SS 


as) 


Rthththehththththttat 
SAR 


FUNCTIONAL SIDE EFFECTS: 
THE CLOCK IS DISABLED UPON ENTRY AND REENABLED WHEN LEAVING 


ee SEQUENCE : 
THIS ROUTINE IS CALLED WHEN her | rere INTERRUPTS THRU **CLKVEC’’. 
THE ADDRESS OF THIS ROUTINE WAS LOADED INTO THE CLOCK*S INTERRUPT 
VECTOR WITH A SUPERVISOR ‘‘SETVEC’* CALL. 


017756 BGNSRV CLKINT 
CLKINT:: 


aCLKCSR DISABLE THE CLOCK FORM INTERRUPTING 
TIMTCK :DECREMENT THE # OF TICKS/SEC. 

1$ a CHECK TIME a ue 3-SECONDS) 
Fens ere et ge THE # OF TICKS/SEC. 


ueSie coun START 
#60. , TIMSEC I TED 60 SECS. YET 
1$ F NOT R 


CHECK K TIMERS 
TIMMIN ; ELSE ine” MINUTES-SINCE=START 
TIMSEC AND RESTART SECOND COUNTER 


TIMER1 3SEE IF TIMER #1, TIMING ANYTHING 
s THING BEING 


TIMER? 
TIMER2 
3$ 


TIMER2 
TIMERS 


CLKHZ, TIMTCK 


NG BEING T LEAVE 
A. SECOND HAS BEEN N COUNTED OFF 


ECREMENT THE TIMER VALUE (BY 1 SEC.) 
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CZDCLB DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83 13:19 PAGE 82 


CZ0CLB.P11 19-JUL-83 17:12 
3277 020070 013777 006632 166524 4$: 
3278 020076 


0 
3279 020076 
3280 020076 000002 


CLOCK INTERRUPT SERVICE ROUTINE 
MOV CLKEN,@CLKCSR ;REENABLE THE CLOCK TO INTERRUPT 
ENDSRV 


10007: 
RTI 


SEQ 81 


—e 7 


SEQ 82 
CZDCLB DUP-11 DATA COM. LE LINK TEST MACY11 30a 1052) 20-JUL-B3 13 19 PAGE 83 
CZDCLB.P11 = 19=JUL=83 17:1 T LOG SUBROUTINE 
328 .SBTTL EVENT LOG SUBROUTINES 
83 3+ 
284 : FUNCTIONAL DESCRIPTION: 
85 : THIS TINE HAS A DIFFERENT ENTRY POINT 
86 : FOR EACH EVENT TO BE LOG ALWAYS PRINTS 
3287 ; THE SHORT ATOR AWAKE’ MES TO CONSOLE THEN LOGS THE 
88 : EVENT TYPE, TIME, AND THE OTHER 3 WORDS OF INFO PASSED TO THE 
3289 : SUBROUTINE AT CALLING TIME 
3554 + INPUTS: ; a 
2 : Tim N & TIMSEC: CURRENT VALUE OF ‘‘TIME-SINCE-START 
% ; WORD #1 OF EVENT LOG INFORMATION (FOR MOST EVENT TYPES) 
3294 ; TEMP WORD D a OF EVENT LOG INFORMATION 
3295 : se OF EVENT LOG INFORMATION 
3296 3 MODS: CURRENT VALUE OF THE MODEM SIGNALS AVAILABLE FROM THE DEVICE 
3298 : OUTPUTS: a 
3299 : NOPERATOR AWAKE'’ MESSAGE SENT TO THE CONSOLE 
3300 : NEW EVENT LOGGED IN “EVTLOG' (EVENT 
$300 3 UPDATED went * (EVENT LOG ENTRY bot tteR) 
3303 ; SUBORDINATE ROUTINES USED: es 
3304 : *“DVMODS'' THE DEVICE SUBROUTINE THAT RETURNS MODEM STATUS IN "MODS 
3305 3 (FOR SOME EVENT TYPES) 
3307 : FUNCTIONAL SIDE EFFECTS: 
3308 : TEMP: USED TO STORE ADDRESS OF “OPERATOR AWAKE MESSAGE 
3309 ; TEMP1: USED TO SETUP THE VALUE OF THE “EVENT TYPE’’ BYTE FOR LOGGING 
3311 ? CALLING SEQUENCE: 
3312 : JSR PC,LOGTXQ :CALL THE LOG EVENT SUBROUTINE WITH TEMP, TEMP1, 
3313 : . ba TEMP2, TEMP3, AND TEMP4 SETUP 
3315 $ JSR PC ,.LOGCMP 
3316 == 
3317 
3318 020100 LOGTXO: 
3319 020100 012737 016537 006536 MOV #STXQ, TEMP1 :SET UP MSG. 1 PRINT 
3320 020106 012737 000000 006534 MOV #7X0, TEMP [SET UP EVENT TYPE 
3321 020114 000517 BR LOGsi [G0 LOG =VENT AND TIME 
3323 020116 LOGTXC: 
330 020116 012737 016550 006536 MOV #STXC, TEMP :SET UP MSG. TO PRINT 
395 020124 012737 000002 006534 MOV #TXC, TEMP [SET UP EVENT TYPE 
3326 020132 000510 BR LOGSi [G0 LOG EVENT AND TIME 
3328 020134 LOGRXQ: 
329 020134 012737 016561 006536 MOV #SRXQ, TEMP1 :SET UP MSG. 9 PRINT 
330 020142 012737 000004 006534 MOV #RXQ, TEMP [SET UP EVENT TYPE 
331 020150 000501 BR LOGS! :GO LOG EVENT AND TIME 
3338 02015 LOGRXC: 
334 020152 012737 000006 006534 MOV #RXC, TEMP :SeT UP EVENT TYPE 
335 020160 000475 BR LoGsi LOG EVENT AND TIME 
336 020162 LGDVE: 


CZ0CLB DUP-11 
CZ0CLB.P11 


000382 


020354 
020360 
020364 
020366 
020372 
020374 


DATA COMM. LI 
19-JUL=83 17:1 


013737 


022737 
001434 
032737 
001430 


Ooar as 
605037 


Sssssse | (ES 


ot 


Se SS 


a 
o 


F 7 


MACY11 30A(1052) 20- JUL -B3 3 19 PAGE 84 
T LOG SUBROUTINE 
#SDVE, TEMP1 :SET UP MSG. 10 PRINT 
#DER, TEMP :SET UP EVENT TYPE 
LOGS :G0 LOG EVENT AND TIME 


LOGDVI: 
#SDVI,TEMP1 :SET UP MSG. TO PRINT 
VI, TEMP :SET UP EVENT TYPE 


3SET UP EVNT ENTRIES 
760 LOG EVENT AND TIME 


#SCM, TEMP1 3SET UP MSG. TO PRINT 
#DCK. TEMP [SET UP EVENT TYPE 
LoGs3 

TEMP1 


#SCRL 
E, TEMP :SET UP MSG. AND TYPE 
Haat :G0 LOG EVENT AND TIME 


#SCMD, TEMP1 

#DDE, TEMP 

ocs3 360 LOG MSG TYPE AND TIME 
#SEOP, TEMP1 


#EOP, TEMP 
LoGs$ 360 LOG MSG TYPE AND TIME 


#SMSC, TEMP1 

#MSC, TEMP 

LoGs$ 

ERRCNT.~(SP) SAVE CURRENT ERROR COUNT 
PC ,DVMODS GET MODEM STATUS 


: GO GET MOD 
(SP)+,R4 :GET SAVED ERRCNT VALUE 
Rs, ,ERRCNT WHERE ANY ERRORS FOUND 


NONE 
LOGEX ; ELSE. LEAVE WITHOUT LOGGING ANYTHING 
BUT THE DEVICE ERROR FROM ‘DVMODS*’ 
MODS, TEMP4 SAND PUT IT IN TEMP4 


#RXC, TEMP 
LOGS 31F RXC DONT PRINT 
#STATB,PARAM 

LOGS5S itt *” g pans SELECTED 
fs LNCNT sHAVE WE DONE ad 


0684 SIF NOT GO TO 
LNCNT TESLE CLEAR IT 
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CZDCLB DUP-11 DATA COMM. LINK TEST MACY11 gt et ee tee Ps 19 PAGE 85 
CZDCLB.P11 19=JUL=83 1 iv: 12 T LOG SUBROUTI 


PRINTF #CR sELSE PRINT CR 
#CR,-(SP) 
a 
CSPNTF 
SP 


SESSS2 


INC L 3 INC COUNTER OF # OF AWAKE MSGS 
PRINTF TEMP1 SPRINT OPERATOR AWAKE MSG. 


oo 


Wn 
[=] 


TEMP1 ,=(SP) 
P) 


$P.RO 
CSPNTF 
44,SP 


A) 


-(SP) :SAVE R3 ON THE STACK 
dee R3 
TEMP, (R3) :LO0G EVENT 


3 


Qa 
ss 
#5 


é 


3LOG TIME SINCE START 


sTICKS,SECS AND MINS. 
LOG EVNT ENTRY 3 
3LOG EVNT ENTRY 4 
3LOG EVNT ENTRY 5 


z1f EVENT LOG FULL GO 
SCONTINUE;ELSE GO TO 2 
#-1, (R3) [LOG A TABLE 
#EVTLOG,R3 [PUT R3 TO START OF TABLE 
gin te s RESTORE POIN NTER 
(SP)+,R3 TRESTORE R 


8 ae ot a at oh ot SS 
WONOULSWN—O 
eb at ed ad ad 
COWWWWW WA WAWAW © 
INN 
nm 
Soseeaeee 
“i 
Bey 


34 
34 
34 
34 
34 
34 
34 
34 
34 


saat OF) 
_ 
~“ 
~“ 
aw 
rN 


e22S5 =-6o0002 206-80 
s ~“ 
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CZDCLB_DUP-11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83 13:19 PAGE 86 
CZDCLB.P11 19-JUL-83 17:12 REPORT EVENT LOG 


-SBTTL REPORT EVENT LOG 
33RPT> LOG 
33 HELP 


EXIT 
COUNTER/FULL ,ERROR , OF F SET=NN(O) 


sats sSAVE R2,R3,R4 ON THE STACK 
R3,-(SP) 
R4,-(SP) 


:PRINT HELP MESSAGE 
PRINTF GRHLPD 


i 
w 


MOV 
MOV 


FESELERESELE 
WIS Se 


WN OSHS 


sBASIC HELP MESSAGE 


S33 


GETRCL: CLRB P$GDBD sINIT GOOD/BAD FLAG -1=8AD INPUT 
CLRB PSNNUF zINIT MORE COMMAND LINE INPUT NEEDED 


35 


3 


3PRINT PROMPT °RPT>° 
GMANID CLISRP,CMDBUF ,A,-1,1,72.,NO 


Vw 
wh 


: 
: 


DIRE 


S 
Oo 


TSHILIM 

#CMDBUF , PSBUFA s INPUT BUFFER 

ACLIRT PSTAEE *REPORT CLI TREE 

#CLIRAC PACT SACTION ROUTINES 

PC ,PSTRV :G0 PARSE COMMAND LINE 

P$GDBD [COMMAND OK ? 

1$ 7 YES,BRANCH 

#CLIERM SPRINT INVALID INPUT MESSAGE 
MOV 
MOV : 
TRAP CSPNTF 
ADD 


ooo 
par Poe ers 
MINIM 


SuRSRERES 
S588 


e 


#CLIERM,=(SP) 
#1,-(SP5 


oo 
-ooo 
par arpa 


ons 
R 


SESE 


+3 
aa 


EEE “ 
SRE S Yao 


GETRCL zTRY AGAIN 
003146 2 TSTB =PSNNUF sMORE COMMAND NEEDED ? 


BEQ 10$ [NO, BRANCH 
PRINTF #CLINUF S INCOMPLETE MESSAGE 
011633 
000001 


000004 





Se 


CZDCLB DUP=11 DATA COMM. LINK TEST MACY11 eS ace 20-JUL-83 13:19 PAGE 87 
CZ0CLB.P11 19-JUL-83 17:12 REPORT EVENT L 


000137 020640 GETRCL 

023727 003010 000002 10S: £ new oMRPEXT 
0001 % 020640 
012604 


208: 


sTRY AGAIN 
sEXIT COMMAND ? 


sRE 
SRESTORE R2 
RETURN 





CZDCLB DUP-11 
CZDCLB.P11 


SEP2ES 


S 
o 


SRSRSFENS 


200 
1 


21 

38 
30 
32 


J 7 


DATA COMM. LIK TEST MACY11 30A(1052) 20-JUL-83 13:19 PAGE 88 


19-JUL-83 17:1 


COMMAND LINE PARSING TREE FOR REPORT 


COMMAND LINE PARSING TREE FOR REPORT 


CLI 
CL 


CLISPA,0,R10$ 3SKIP SPACES IN COMMAND LINE 
<*2>,RPHLP,R11$ IF INPUT = ? THEN PRINT HELP MESSAGE 
CLIEXI, AND EXIT PARSER 
CLISTR.RPHLP,R12$,<*HELP’> IF INPUT = ‘HELP® THEN PRINT HELP 
CLIEXI, ::MESSAGE AND EXIT PARSE 
CLISTR,RPEXT,R13$,<°EXIT'> IF INPUT = ‘EXIT’ THEN SET KEYWORD = 
CLIEXI. +sRPEXT AND EXIT PAR 
CLISTR.RPLOG,R14$,<"LOG'> :iF INPUT = ‘LOG’ THEN GO PRINT EVENT 
CLIEXI, :3LOG AND EXIT PARSER 

CLISTR.RNOTNF ,R30$,<"COUNTERS'>; IF INPUT = "COUNTERS 

ch TBR. 0. 33 THEN GET SWITCH 


TNF ,R30$ 

CLISTR-RPERR»R218,<*ERROR'> ; REPORT ERROR COUNTERS 

CLISTRARPFUL ,R228,<*FULL'> ; REPORT ALL STATUS 

CLISTR-RNOTNF ,R30S,<"OFFSET'> ; REPORT ONE LOCATION 
=>,0.R30$ 

CLIOCT-RPSWO,R30$ 

CLIEXI.0 

CLIERR.O 

CLIEXI.0 
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LINK MACY11 30A(1052)_ 20-JUL-83 5 % PAGE 89 
12 CLI ACTION DISPATCHER AND ROUTINE 


- SBTTL ous ACTION DISPATCHER AND ROUTINES 
CLIRAC: R2 sSET UP INDEX 
Oo 1S3s a WScRe) - R2 ; 


02125 $ Re” : 
% 2) 360 DO ACTION 
;RETURN 


CZDCLB_DUP=11 DATA iz 


CZDCLB.P11 19=JUL=83 17: 


sNULL 

sHELP ROUTI 

sEXIT ROUTINE 

3REPORT EVENT LOG ROUTINE 

sREPORT ONLY ERROR _—— 
ACTFUL-10$ ZREPORT ALL COUNTERS 
ACTRNF-10$ MORE C 

031970 ACTRSO-10$ SVALIDATE OFFSET 


021272 113737 177777 ACTRNF: MOVB -1 ,PSNNUF *MORE COMMAND NEEDED’ FLAG 
021300 000207 ACTRNL: RTS PC SNULL 


sPRINY HELP pt ln 


012702 003036 ACTRHL: MOV #RHL ZINDEX FOR HELP MESSAGES 
1$: PRINTF oHLPF. Toes SPRINT IT 


012246 (R2)+,=(SP) 
012271 Genet 27 (SP) 
000002 


oC R2,#RHLPEN sLAST MESSAGE ? 


MOV —«s #RPHLP,KEYWD1 9: SET KEYWORD 
RTS PC RETURN 


BES 


-EXIT REPORT LEVEL 
021346 ACTREX: MOV WRPEXT,KEYWD1 ;SET KEYWORD AND RETURN 
021354 000207 RTS PC 


ed EVENT LOG 
ACTRLG: J PC ,REPLOG 360 PRINT EVENT LOG 
003010 nov o LOG ,KEYWD1 ett KEYWORD 


Vu 
WM 


DIRE 


1 
021370 000207 


VMVIVIMIVIMIUVIUWIUIU) 


w 
Oo 


:REPORT ALL MESSAGE AND ERROR COUNTERS 
021372 037254 ACTFUL: MOV #0.FIR ZSTARTING INDEX 
021400 MOV SLAST INDEX 
021406 APRI [G0 PRINT IT 
021412 RETURN 


zPRINT ONLY DDCMP ERROR COUNTERS 

021414 ACTERR: MOV #14,FIR sFIRST ERROR 

021422 MOV #36.LAST SLAST ERROR 
JSR PC, STAPRI :GO PRINT IT 
RETURN 


SSSaeEweS 


es 
Se) 


3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
: 
3 
3 


ww 
33 
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CZDCLB DUP=11 DATA COMM. LINK MACY11 30A(1052)_ 20-JUL-83 13:19 PAGE 90 
CZDCLB.P11 19-JUL=83 17:12 CLI ACTION DISPATCHER AND ROUTINES 


>;VERIFY OFFSET VALUE 
003146 AcTRSO: CLRB 
000001 003142 BIT 


003142 
YES BRANCH 
003142 000036 INDEX LARGER THEN 36 ? 


7 YES, BRANCH 
003142 037254 SSTARTING INDEX 
003142 037252 MOV sLAST LOCATION 

021542 SPRINT SINGLE LOCATION 


BR sEXx 
: PRINTS #RPTIV INVALID 
013405 MOV #RPTIV,-(SP) 
000001 #1,-(SP) 


SP,RO 
CSPNTS 
#4,SP 


000004 
177777 MOVB #-1,PS$GDBD sSET BAD DATA FLAG 
30$: RETURN sOFFSET OK = EXIT 


z: PRINT ROUTINES 
STAPRI: MOV R1,=(SP) :SAVE R1 
000040 BIT #PRO TOB,PARAM :''/PROTOCOL'? 


BNE 3 YES,BRANCH 
PRINTF &#RPTNV 3"‘COUNTERS VALID ONLY WITH — eae 


013430 PTNV,~(SP) 
000001 (SP) 


000004 


0 BR 208 ; 
037254 5$: FIR,R1  ;FIRST INDEX 
037256 : _ STALST(R1),MES ;MESSAGE ADDRESS 
037260 MOV PR “MESDATA ;MESSAGE DATA 
PC,aSTAIND(R1) ;JUMP TO PROPER PRINT ROUTINE 


00 42. 
037252 CMP R1 
20$ 


eeeeee 


R sBUMP 

LAST ZALL MESSAGES PRINTED 
10$ SPRINT NEXT MESSAGE 
(SP)+,R1 :RESTORE R1 


:3 PRINT WORD LOCATION 
PRIW: PRINTS MES,MESDATA zPRINT WORD LOCATION 


SESSSSSSSS. 
WONOULWN—o 


MESDATA,=(SP) 
MES,-(SP) 
Se ale 
CSPNTS 

#6,SP 


RESEERES 
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CZDCLB _DUP-11 DATA COMM MACY11 30A(1052)_ 20-JUL-83 5 i PAGE 91 
CZDCLB.P11 19=JUL=83 CLI ACTION DISPATCHER AND ROUTINE 


PRINT TWO BYTES OF DATA 
bRIBB: PRINTS MES,<B,MESDATA>,<B,MESDATA+1> 


=(SP) 

We seataet 2 (SP) 
MESDATA, (SP) 
MES ,-(SP) 


#10,SP 
RETURN 


>: PRINT SPECIAL BYTE MASK 
PRIBS: CLR TEMP1 
TEMP 
TEMP 

037261 #B1TO.MESDATAS1 : 


INC TEMP1 3s 
037261 3 rit T1,MESDATA+1 ; 


I TEMP2 3S 
037261 : #B1T2,MESDATA+1 ; 
E 30$ 


INC TEMP3 TSET IT 

PRINTS MES,<B,MESDATA>,<B, TEMP1>,<B, TEMP2>,<B, TEMP3> ‘os 
TEMPS, (SP 
TEMP, (SP) 
TEMP. (SP) 

-(SP 

MESDATA, (SP) 
MES,-(SP) 


SP,RO 
CSPNTS 
#14,SP 


022056 





nN 7 
LINK TEST MACY11 30A(1052) 20-JUL-83 13:19 PAGE 92 
12 DUMP EVENT LOG 


CZDCLB DUP-11 DATA Coat 


CZDCLB.P11 19-JUL-83 17: 


-SBTTL DUMP EVENT LOG 


REPLOG: MOV RS.(3p zSAVE R2,R3,R4 ON THE STACK 
MOV 


MOV EVTPTR,R2 MAKE R2 A POINTER TO a TABLE 
177777 CMP A lt 3SEE IF EVENT TABLE IS EMPTY 


BNE RP 
PRINTS #NULEVT tI EMPTY TELL OPRERATOR. 
MOV #NULEVT,-(SP) 
MOV (SPS 
MOV 
TRAP 
ADD 
ENDEVT yAND END 


#12,R2 NOW POINT BACK TO TOP OF ENTRY U 
7JUST PRINTED 


R2,#EVTLOG :POINTING TO TOP OF EVNT LOG QUEUE? 
BNE RPT1 : BR IF NO 
007554 MO #EVTEND ,R2 :SET R2 TO POINT TO BOTTOM OF LOG 


177776 «(177777 ~2(R2) #1 
BNE RPTO z1F END OF LC4 IS NOT EMPTY 
ENDEVT 7CONTINUE...ELSE EXIT 


R2,EVIPTR yARE WE BACK TO POINTER? 
RPTO :1F NOT CONTINUE 
JMP ENDEVT TIF SO EXIT.... 
SUB #12,R2 :POINT R2 TO START OF ENTRY 
PRINTS #EVTFO SPRINT EVENT ENTRY HEADER 
MOV #EVTFO,-(SP) 
MOV #1,-(SP) 
MOV SP, 
TRAP CSPNTS 
ADD #4,SP 
Move (R2)+,R3 sPUT EVENT TYPE INTO R3 
MOVB (Re) :PUT EVENT TIME (TICKS,SECS.MINS IN TEMP LOC.S) 


MOVB EvT 
PRINTS seviF ie EVIMIN, EVTSEC,EVTTCK,EVTLST(R3) ;PRINT a = ie © AND att eee 


022270 #14,SP 





CZDCLB_DUP=-11 DATA COMM, LINK TEST MACY11 30A(1052) 20-JUL=83 13:19 PAGE 93 
CZDCLB.P11 19=JUL=83 17:12 DUMP EVENT LOG 


022274 000173 JMP @RPTDSP(R3) sDISPATCH TO DECODING SECTION FOR SPECIFIC TYPE 


oissse 7 RPTTXQ: MOV (R RS Rviort sSTORE MESSAGE ADDRESS FOR PRINTING 
BISsae MOV (R2)+, Fy — TE COUNT FOR PRINTING 


MOV (R2)+ TOR 
PRINTS seve. EVTADD, eviacs ;PRINT ADDR,BYTE CNT 
EVTBCT,=(SP) 


SPNTS 
#10,SP 
JSR PC,RPTMSB :G0 PRINT MODEM STATUS 
022126 JMP RPT 760 BACK FOR NEXT EVENT ENTRY 


007652 RPTDER: MOV (R2)+,EVTTMP 3GET ADDRESS OF DEVICE INFO MESSAGE 
col MOV os OR Bey vi sSTORE DEVICE REG CONTENTS FOR PRINTING 


MOV (R2)+,DEV2 

PRINTS SEVTES EVITHP sPRINT DEVICE REG CONTENTS. 
EVTTMP,-(SP) 
#EVTF3,-(SP) 
Oe ae 


SP,RO 
CSPNTS 
#6 


PRINTS #EVTF3C,DEV1,DEV2 
DEV2.-(SP) 


=ocoscscs 
w 


g 
o 


#10.SP 


S 


RPT 3GO BACK FOR NEXT EVENT ENTRY 


RPTDVI: DEVI 
C DEv2 3CLEAR UPPER BYTES OF DEVI & DEV. 
irate bev 7STORE SETUP OPERATION PARAMETE 


022446 
022452 
0224 


ss 
ONNNNNN ON 


EV2 BEFORE USE 
RS FOR PRINTING 


ooo-— 
ad od ht od 


:SAVE R2 ON THE STAC 
623714 PC, SHWOP :60 PRINT MODE, AAINT LOOP TYPE, PARAMTERS. 
022126 RPT °60 BACK FOR NEXT EVENT ENTRY 


REPORT END OF PASS OR *C ABORT 
RPTABO: 


RPTEOP: MOV (R2)+, EVTADD 3PASSES 
765 MOV (R ag tA 3 ERRORS 
765 MOV (R2)+,EVTTM START TIME OUTS 
PRINTS seviF AB EVTADD EVTBCT ,EVTTMP sPRINT ADDR, mean ves CMPBYTES. 
652 EVTTMP,-(SP) 
07650 MOV EVTBCT,-(SP) 
007646 MOV EVTADD.~(SP) 


g2e 
abe 


022512 
022512 


00764 
00 
00 
007 
0 





c 8 


SEQ 93 
CZDCLB DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83 13:19 PAGE 94 
CZDCLB.P11 «=: 19 JUL-83 17:12 DUMP EVENT LOG 
542 012746 016223 MOV #EVTF4B,-(SP) 
3788 pat oi 746 dina HOV #4 .=(SPS 
ree Sse2e 10600 TRAP CSPNTS 
786 022556 062 000012 #12,SP 
787 Oe 000137 022126 JMP RPT : THEN GO GET NEXT EVENT ENTRY 
3789 022566 012237 007646 RPTDDE: MOV (R2)+,EVTADD § ;STORE MESSAGE ADDRESS FOR PRINTING 
790 022572 012237 007650 MOV (Re)+.EVTBCT i STORE BYTE COUNT FOR PRINTING 
3791 022576 012237 007652 MOV (Re TTMP TORE TOTAL # OF CMP ERRORS 
3792 022602 PRINTS seateee EVTADD, eviacr EVTTMP :PRINT ADDR, BYTE E CNT. s cmp ERRS 
3793 022602 013746 007652 EVTTMP,-(SP) 
79%, 032606 013746 007650 mov EVTBCT.=(SP) 
795 022612 013746 007646 MOV EVTADD,=(SP) 
3796 022616 012746 016023 MOV #EVTF4,=(SP) 
3797 22622 012746 000004 MOV 7 
798 022626 010600 MOV is 
3799 022630 104416 TRAP  CSPNTS 
3800 022632 062706 1 ADD #12,SP 
3801 022636 000137 022126 JMP RPT ;THEN GO GET NEXT EVENT ENTRY 
3803 022642 RPTDLE: 
3804 022642 012237 007646 RPTDCK: MOV (R2)+,EVTADD § ; STORE MSG ADDR FOR PRINT 
3805 022646 012237 007650 MOV (Re) + EVTBCT : STORE BYTE COUNT 
3806 022652 012237 007652 MOV (R2 STORE BYTE COUNT COMP 
3807 022656 PRINTS seetReaY EVTADD, EVTACT.EVTTMP  :PRINT ADDR.RXBYTES, CHPBYTES. 
3808 022656 013746 007652 MOV EVTTMP,-(SP) 
3809 022662 013746 007650 MOV EVTBCT,-(SP) 
3810 013746 007646 MOV T S 
3811 022672 012746 016125 MOV #EVTF4A, (SP) 
3812 022676 012746 (SPS 
3813 022702 01 MOV 
3814 022704 104416 TRAP  CSPNTS 
3815 706 062706 000012 ADD #12,SP 
3817 022712 000137 022126 JMP RPT ;THEN GO GET NEXT EVENT ENTRY 
3819 
3820 
3 
3823 022716 012237 007652 RPTMSC: MOV (R2)+, EVTTMP 
3824 022722 PRINTS #EVTFS,EVTTMP ;PRINT CHANGE TYPE 
3825 022722 013746 007652 MOV EVTTMP,-(SP) 
6 022726 012746 015752 MOV aEVTTS = -(SP) 
7? 022732 012746 000002 MOV 
8 026736 010600 MOV SP. 
02 740 104416 TRAP  CS$PNTS 
02274 062 000006 ADD #6,SP 
1 022746 01 20 MOV (R2)+,R :PUT.O OL MODEM STATUS IN R3 FOR PRINTING 
32 022730 004737 023016 JSR PC, Rinse T OLD MODEM STATUS 
33 022754 PRINTS #EVMOCG ‘8 PRINT ‘CHANGED TO:' 
34 022754 012746 016365 MOV #EVMOCG,-(SP) 
35 022760 012746 000001 MOV #1,-(SP5 
3836 022764 01 MOV SP.RO 
37 022766 104416 TRAP = CSPNTS 


CZDCLB DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83 13:19 PAGE 95 
CZDCLB.P11 =: 19JUL-83 17:12 DUMP EVENT LOG 

000004 ADD #4,SP 
MOV (R2)+,R3 :PUT NEW MODEM STATUS IN R3 FOR PRINTING 
023016 J PC ,RPTMSB 760 PRINT NEW MODEM STATUS 

022126 RPTMSE: RPT ‘THEN GO GET NEXT EVENT 


ENDEVT: (SP)+,R4 RESTORE R4,R3,R2 
M0 (SP)+,R3 

(SP)+,R2 

PC sRETURN TO CALLING ROUTINE 


MODEM STATUS SUBROUTINE 
PART OF STATISICAL REPORTING (DUMPING EVENT LOG) 


PRINTS #EVMOHD sPRINT MODEM STATUS —, 


ao 


#EVMOHD ,- (SP) 
#1,-(SP5 


MOV SP 
TRAP  CSPNTS 


ADD #4,SP 
#MOBITS .R4 ; POINTER TO MODEM SIG. BIT DEF. TABLE 
#MOMSGS ,R5 ; POINTER TO MODEM MSG. POSITION TABLE 
(R4) ; AIABLE FROM DEVICE 
7$ ; SIG. _AVAIABLE 
#°X a(R5)+ ; PUT ‘X"* IN_REPORT IF SIGNAL NOT AVAILABLE 
(RdS+ ; 4 TO POINT TO NEXT BIT DEFINITION 
9$ ; HECKED ALL MODEM SIGNALS 
(R4)+,R3 ; cE IF wea Wy DEVICE'S ENTRY=1 


#'1,a(R5)+ 
OF 
#°0,a(R5)+ 
R4, AMOBITE ( S$) CHECK 
;LOOP SIGNALS(BITS) CHECKED 
#EVMOST : M SIGNAL VALUE MESSAGE 


“ooo 
Ronn 
NEONN 
esess 


28 


7S 


% 
0 
1 
ser8 
384 
3844 
3845 
3846 
3847 
3848 
3849 
$620 
3852 
3884 
54 
oH 
3857 
3858 
3859 
3860 
3861 
3862 
3 
3865 
3866 
3867 
3868 
3869 
3870 


-(SP) 
P 
TRAP 
ADD 
023126 sRETURN TO EVENT DECODING 





SEQ 95 
CZDCLB DUP=11 DATA COMM, LINK TEST MACY11 30a(1052) 20-JUL-83 13:19 PAGE 96 
CZDCLB.P11 =: 19+ JUL=83 17:12 BYTES OR WORDS 
3882 .SBTTL DUMP BYTES OR WORDS 
388 
sae :* 
3886 3 FUNCTIONAL DESCRIPTION: 
3887 ; DUMPSR = DUMP BYTES OR WORDS SUBROUTINE 
3889 : THIS SUBROUTINE PRINTS THE CONTENTS oF THE LOCATIONS BETWEEN 
3890 : A STARTING AND END ADDRESS IN LOCS. ‘'STADD’’ AND ‘ENADD’ 
3891 : THE WORD OR BYTE CONTENTS ARE PRINTED 8 TO A LINE WITH THE 
4 3 ADDRESS OF THE FIRST BYTE AS THE FIRST 6 OCTAL CHARS. FOLLOWED 
389 : BY A SEMICOLON. 
3894 : 
3895 : INPUTS: 
3896 3 STADD= STARTING ADDRESS (FIRST LOC. TO PRINT) 
7 : ENADD= END ADDRESS (LAST LOCATION | DUMP) 
398 : BYTBIT= 1 IF SUPPOSED TO PRINT ‘BYTES 
: 0 IF SUPPOSED TO PRINT ‘WORDS’ 
3900 ; 
901 3 OUTPUTS: 
90 3 CONTENTS OF A RANGE OF LOC.S PRINTED ON THE OPERATORS CONSOLE. 
3904 ; CALLING SEQUENCE: 
33905 ; JSR PC,DUMPSR ;CALL DUMP BYTES SUBROUTINE 
3908 a 
3909 23130 013702 006510 DUMPSR: MOV STADD,.R2 sSET R2 sR2 uP TO STARTING ADDR. 
10 023134 00500 DUM4: CLR R CLEAR 
3911 023136 PRINTF #BASM1,R2 SPRINT ADDRESS 
3912 023136 910246 MOV R2,-(SP) 
3913 023140 012746 015507 MOV SM1,-(SP) 
3914 023144 012746 MOV »=(SP) 
15 023150 010600 MOV RO 
3916 023152 104417 TRAP  CSPNTF 
917 023154 062706 000006 ADD f 
3918 023160 005737 006514 DUM3: TST BYTBIT s1S THIS BYTE OR WORD 
3919 023164 00141 BEQ DUM1 BR IF WORD 
3920 023166 112237 006534 MOVB = (R2)+, TEMP [MOV BYTE TO TEMP 
3921 023172 PRINTF #BASMS,<B,TEMP> :PRINT BYTE 
3922 023172 005046 CLR -(SP) 
3923 023174 153716 006534 BIS8 TEMP, (SP) 
924 023200 012746 015471 MOV #BASM3,-(SP) 
925 023204 012746 000002 MOV #2,-(SP) 
926 023210 010600 MOV SP.RO 
927 023212 104417 TRAP  CSPNTF 
3928 023214 062706 000006 ADD #6,SP 
23220 000411 BR DUM2 
02322 DUM]: PRINTF #BASM2,(R2)+  ;PRINT WORD 
931 023222 012246 MOV (R2)+,=(SP) 
023224 912746 015500 MOV ag =( 
933 02 012746 000002 MOV #2,-(SP) 
934 023234 01 MOV SP-RO 
935 023236 10441 TRAP — CSPNTF 
936 023240 0627 ADD #6.SP 


3937 023244 020237 00651 DUM2: CMP R2,ENADD sCOMPARE FOR LAST ADD 


F 8 


CZDCLB DUP=11 DATA COMM. LINK TEST MACY11 yh yg 13:19 PAGE 97 
CZ0CLB.P11 19-JUL-83 17:12 BYTES OR WORD 


s1F DONE EXIT 
R sELSE BUMP R3 
000010 CMP - sHAVE wE tore 8 ACCROSS 


TE OR_WORD 
SRETURN TO CALLER 





CZDCLB_DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83 13:19 PAGE 98 
CZDCLB.P11 19-JUL-83 17:12 UPDATE TOTAL CHAR. COUNT SUBROUTINE 


-SBTTL UPDATE TOTAL CHAR. COUNT SUBROUTINE 


* FUNCTIONAL DESCRIPTION: 
UPDATES TOTAL CHAR. COUNT TOTCC re ON CURCC. 
LAST “etm IS TRUNCATED TO FIT INT : 
BUFFER IF TOTAL CHAR. COUNT EXCEEDS ‘BUFLIM’’ A MESSAGE 
IS PRINTED TELLING THE OPERATOR THE TRUNCATION OCCURED. 


Seagtees £2 


33 


INPUTS: 
CURCC= CHAR. COUNT OF MESSAGE BEING ADDED 
TOTCC= TOTAL CHAR COUNT OF BUFFER ITS BEING ADDED TO 


GUTPUTS: 
MESSAGE TO OPERATOR IF MESSAGE TRUNCATED TO FIT 


FUNCTIONAL SIDE EFFECTS: 
LOCATION “‘TEMP’’ USED FOR CALCULATIONS 
CALLING SEQUENCE : 
JSR PC, ADC sUPDATED TOTAL CHAR. COUNT 


PRESSES 


z 


Be Se Se Se Ge Ge Se Gs Ge Ge Ge Ge Ge Se Se Ge Ge Se . 


ge3 


CURCC, TOTCC sADD CURRENT TO lagi 8 
#BUFLIM,TOTCC ; COMPARE TO ‘BUFLIM 
ADDC1 71F NOT MORE THEN ‘BUFLIM EXIT 


MESSAGE AND TRUNCATE COUNT 
#MSGTRU 


#MSGTRU,-(SP) 
=(SP) 


CURCC, TOTCC 
#BUFLIM, TEMP 
Torcc. TEMP zmOy Tolar 


TEMP, CURC zAND ESTABLISH NEW CURRENT 
CURCC, TOTCC 3ADD ‘ADJUSTED CURRENT’* TO TOTAL CHAR. CNT. 
PC sRETURN TO CALLER 





CZDCLB_DUP=11 DATA COMM. LINK TEST MACY11 tN ge 20-JUL-83_ 13:19 er 99 
CZDCLB.P11 19-JUL-83 17:12 D MESSAGE BUFFERS SUBROUTINE 


»SBTTL BUILD MESSAGE BUFFERS SUBROUTINE 
FUNCTIONAL DESCRIPTION: 
BLDBUF=- BUILD POINTER TABLE AND BUFFERS 


THIS SUBROUTINE ADDS A MESSAGE TO THE TRANSMIT OR EXPECT LIST 
USING THE POINTER, BYTE COUNT, AND ADDRESS PASSED TO IT. 


TS: 
CURCC= CHAR. COUNT OF MESSAGE ra BE ADDED 
CURADD= ADDRESS OF MESSAGE TO BE ADDED 
CPTR= ADDRESS OF POINTER TABLE WORD WHERE MESSAGE POINTERS ARE 


L 
MSGTYP= VALUE TO USE AS AN INDEX TO FIND SOURCE ” MESSAGE DATA 
OUTPUTS: INDEX INTO DMSGCT() AND DMSGAD() 


A_MESSAGE ADDED TO EITHER TXBUF OR CMPBUF 
APPROPRIATE POINTERS IN PTRTAB POINTER TABLE 


CALLING SEQUENCE: 
JSR PC ,BLDBUF sBUILD MESSAGE IN BUFFER AND ADD PTRS. 


BLDBUF : 
Ares SAVE R2 AND R3 ON THE STACK 
CPTR,R2 


CURADD, (R2)+ sPUT CURRENT ADD ON POINTER TAB 
CURCC, (R2)+ T CURR T 


T UPDA on 
MSGTYP,R2 3GET e ton us YPE TO USE AS 
DOUBLE FOR WORD INDEX 
;MOVE La ADD TO 


TEMP 
C COUNT TO IT TO GET END 
SET R3 TO CURRENT START ADD 


ooo 


ooo 
parr 


RISS 
NWO 


R4, TEMP2 I 

(R4)+, (R3)+ :MOV ¥ BYTE FROM PATTERN TO BUFFER 
R3, TEMP ALL DONE ? 

BLOBEX t1F SO EXIT 

R4, TEMP2 i1S PATTERN COUNT EXPIRED 

BL SO GO STAR 

Tf NOT GET ANOTHER BYTE 


BUMP CURADD 
RESTORE R3 AND R2 


BL 

Fore -Eunaee 
(SP)+,R 
(SP)+,R 

PC sRETURN TO CALLER 





CZDCLB 
CZD0CLB.P1 


4039 
4 


11_ DATA 
19=JUL 


Com att LINK TEST 
17:1 


MACY11 30A(1052) 20-JUL-83_ 13:19 PAGE 100 
CREATE FACSIMILE OF TX BUFFER AND MESSAGE LIST 


~SBTTL CREATE FACSIMILE OF TX BUFFER AND MESSAGE LIST 


{FUNCTIONAL DESCRIPTION: 


FACSIMILE: THIS gg hd is USED TO CREATE A rs a THE 
OF THE TRANSMIT LIST AND TRANSMIT BUFFE 118 
EXPECTED LIST AND EXPECTED “BUFFER. THE 
NORMALLY CALLED WHEN USER ‘SET E XPECTI= 

T CRANSMIT) IS ENTERED. 


CALLING SEQUENCE: JSR PC,FACSIMILE 


DEF INITIONS fon = Tersett an BUFFER HOLDS MAX 512 BYTES 
TXBUF IT A_BUFFER HOLDS MAX 512 BYTES 


CMPTOT TED MESSAGES 

CMPPTR = EXPECTED MESSAGE LIST POINTER 

TXPTR = TRANSMIT MESSAGE LIST POINTER 

TXMTOT = NUMBER OF TRANSMIT MESSAGES 

CCURAD = STORAGE ADDRESS OF MESSAGE IN CMPBUF 

MSGLIN = MAXIMUM NUMBER OF MESSAGES THAT CAN BE STORED 


BEGIN FACSIMILE ROUTINE 
(sCOPY TXBUF ==> CMPBUF*) 


. “REPEAT 
eoee Lees at =CTXBUFIR1 


*TONTIL RR = BUFLIM 


(*NOW CALCULATE EXPECT us MESSAGE POINTER*) 
--CMPPTR = PTRTAB + (2 * MSGLIM) 


(*NOW PRIME THE WHILE - DO LOOP*) 
oo TXPTR = PTRTAB 


oo ° CMPBUF 
..TXPTR = TXPTR + 2 
--CTOTCC = CTXPTRI 


-CMPTOT 
; WHILE TXMTOT <> CMPTOT DO 
R] = CCURAD 


CCURAD = 
eoeelTOTCE = 
eee eCMPPTR = CMPPTR + 
-+2-CMPTOT = CMPTOT + 
~END WHIL re 
> -CTOTCC = TTOTCC 
END FACSIMILE ROUT INE 





CZDCLB DUP-11 DATA cor. LINK TEST 
CZ0CLB.P11 19-JUL=83 17:12 


J 8 


MACY11 30A(1052) 20-JUL-83_ 13:19 PAGE 101 
CREATE FACSIMILE OF TX BUFFER AND MESSAGE LIST 


023510 FACSIMILE: 
02351 MOV R1,-(SP) iSAVE R 
02351 INIT 
10$: MOVB =‘ TXBUF(R1), CMPBUF (R1) :COPY ot BUFFER TO EXPECTED BUFFER 
R1 ,ABUFLIM tALL DATA COPIED ? 
10$ “NO, BRANCH 


+ peeateaa s MESSAGE LIMIT 


R1 
#PTRTAB, CMPPTR NTER TABLE 
R1,CMPPTR ESTART OF EXPECTED POINTER TABLE 


3SET UP WHILE = DO LOOP 
MOV #PTRTAB, TXPTR 3TX POINTER NOW AT TOP OF TABLE 
ye pee CCURAD ZTRANSFER ADDRESS OF 1ST MESSAGE 


#2, TXPT 3BUMP 
a@TXPTR,CTOTCC 3BYTE COUNTER 1ST MESSAGE 
CMPTOT sINIT EXPECTED MESSAGE COUNT 


WHILE TX MESSAGE TOTAL <> EXPECTED MESSAGE TOTAL DO 
CMP TXMTOT ,CMPTOT sALL MESSA ~ COPIED ? 


4 sYES, BRANCH 
CCURAD ,aCMPPTR TRANSFER ADDRESS OF MESSAGE 
#2,CMPPTR sBUMP POINTER 

CTOTCC, aCMPPTR 


A ee ne eee 
SUSNOUSLWN Oo 


CTOTCC,CCURAD 

aTXPTR,CTOTCC 

#2,CMPPTR : POINTER 

CMPTOT S INCREMENT MESSAGE COUNT 
DO IT AGAIN 


WHILE = DO , 
023702 : MOV TTOTCC,CTOTCC :COPY TOTAL CHARACTER COUNT 


3END ROUTINE 
023710 012601 MOV (SP)+,R1 sRESTORE R1 
023712 000207 RTS PC sRETURN 





SEQ 101 

CZDCLB DUP=11 DATA COMM. LINK TEST MACY11 3041052) 20-JUL-83 13:19 PAGE 102 
CZDCLB.P11 =: 19=JUL-83 7 i7: 12 MODE OF OPERATION, LOOP TYPE AND QUALIFIERS 

4138 .SBTTL SHOW MODE OF OPERATION, LOOP TYPE AND QUALIFIERS 

4140 3+ 

4141 : FUNCTIONAL DESCRIPTION: 

414 : = SHOW MODE OF OPERATION, LOOP, QULAIFIERS 

414 ; ; PRINTED ON THE OPERATOR'S CONSOLE. 

4145 > INPUTS: 

4146 ; DEVi= MODE TYPE (MODTYP) 

4147 : DEV2= MAINT LOOP TYPE (MLTYP) 

4148 : DEV3= "RUN PASS’ COUNT (RPASS) = COUNT DOWN 

4149 3 DEV4= PARAMTERS WORD (PARAM) 

4151 : IMPLICIT INPUTS: 

4152 : MODES= TABLE OF ADDRESSES OF MODE NAME STRINGS 

4135 : LOOPS= TABLE OF ADDRESSES OF LOOP TYPE NAMES 

4155 t CALLING SEQUENCE: 

4156 : JSR PC, SHWOP 

84 “a 

4159 023714 013702 007704 SHWOP: MOV DEV1,R2 :GET THE MODE TYPE IN R2 

4160 023720 006302 ASL R2 [MAKE IT A WORD TABLE OFFSET 

4161 023722 016237 003102 006534 MOV MODES(R2), TEMP GET ADDRESS OF MODE =IN-ASCII 

4162 023730 013702 007706 MOV DEV2,R2 [GET MAINTENANCE LOOP TYPE 

4163 023734 006302 ASL R ‘ a 

4164 023736 012737 013724 006542 MOV #LP00, TEMP3 sLOAD TEMP3 TO POINT TO *‘/LOOP= 

4165 023744 005702 TST R2 TSEE IF /LOOP=XXXXX OR NONE 

4166 023746 001003 BNE 10$ ; GR IF /LOOP= OF SOME KIND | 

4167 023750 012737 013723 006542 MOV #LPO, TEMP3 SIF NO LOOP THEN DON'T PRINT "/LOOP=" 

4168 023756 016237 003120 006536 10$: #§ MOV TOPS ROD TEMP1 GET ADDRESS OF LOOP-IN-ASCII 

4169 023764 013737 007710 006540 MOV DEV 5 [GET NUMBER OF PASSES 

4170 023772 PRINTS #SHFO, TEMP, TEMP3,TEMP1, TEMP2 

4171 023772 013746 006540 MOV TEMP2,-(SP) 

4172 023776 013746 006536 MOV TEMP1 .-(SP) 

4173 024002 013746 006542 MOV TEMP3,-(SP) 

417% 006 013746 0065 TEMP, -(SP) 

4175 024012 012746 014507 MOV #SHFO,-(SP) 

4176 024016 012746 7 (SP) 

4177 024022 01 MOV " 

4178 024024 104416 TRAP 

4179 024026 062706 000014 ADD #14,SP 

4181 024032 5002 CLR R2 sNOW SET UP FOR QUALIFIERS IN ASCII 

4182 024034 012737 014003 006534 MOV #PST, TEMP 

4183 024042 032737 1 007712 BIT #STATB, DEVS :SEE IF ZsTaTus OR /NOSTATUS 

4184 024050 001003 BNE 1$ “BR IF /STATUS 

4185 024052 012737 001 006534 MOV #PNST, TEMP 

4186 024060 012737 014014 006536 15S: MOV #PCK, TEMP1 

4187 024066 032737 2 007712 BIT MDATCKB,DEV4 § ;SEE IF /CHECK OR /NOCHECK 

4188 024074 901005 BNE [BR IF /CHECK 

4189 024076 012737 014012 006536 MOV #PNCK, TEMP1 

4190 024104 012737 014026 006540 2$: MOV #PEC, TEMP2 

4191 024112 032737 000004 007712 BIT #E CHOB, DEVS :SEE IF /ECHO OR /NOECHO 

4192 024120 001003 BNE 4$ “BR IF /ECHO 


4193 024122 012737 014022 006540 MOV #PNEC,TEMP2 


L 8 


CZDCLB_DUP=11 DATA COMM. LINK TEST MACY11 gy gat 13:19 PAGE 103 
CZDCLB.P11 19-JUL-83 17:12 OF OPERATION, LOOP TYPE AND QUALIFIERS 


SEQ 102 


014043 006544 4S: MOV #PPR, TEMPS 
000040 007712 #PROTOB DEVS 3 SEE pears OR /NOPROTOCOL 


BNE 3BR IF 
006544 #PNPR , TEMPS 


006546 : MOV #PMS , TEMPS 
0 007712 #MOCHK ,DEV4 3SEE IF /MODEM OR /NOMODEM 
BN BR IF MODEM 


5 
006546 #PNMS , TEMPS 


#SHF1,TEMP,TEMP1,TEMP2,TEMPS,TEMP4 ;, TEMPS 
TEMPS ,-(SP) 


CSPNTS 
#16,SP 
024244 sRETURN 





CZDCLB DUP-11 DATA COMM 
CZDCLB.P11 19=JUL=83 


024246 


i7: 


LINK TEST 
712 


003132 
003134 


000013 


024310 
024310 


Sn 


| 
Ww 


MACY11 SOA ere 20-JUL-83 13:19 PAGE 104 
ERSE COMMAND LINE SUBROUTINES 


-SBTTL TRAVERSE COMMAND LINE SUBROUTINES 


p++ 


; PSTRV SUBROUI TNE 


SPARSE THE COMMAND LINE SUBROUTINE 
STAKE ACTIONS (VIA ACTION TREE) AS PARSING A 
;PARSING tena FROM “CLI PARSING NODES 


R1 oRS= SCRATCH 
ON CODE PARAMETER FROM TREE 
Ss POINTER 


; R4=] NG POINTER 
; a SEQUENCE : 
; JSR PC .PSTRV 


PSNUM=NUMERIC CODE FROM DATA 


PSTRV: 
PSBUFA,R4S 
MOV PSTREE.R3 
PSTRS: (R4) ;SEE IF ANY CHARS LEFT IN INPUT STRING 
BEQ PSEXIT ‘BR IF NO 
(R3) ,#11. +SEE iF SPECIAL CLI CHAR CODE OR ASCII 
F REGULAR AS CHAR. 
(R3) RS :GET SPECIAL CHAR CODE INTO R5 
10$(R5) RS ;BUILD TRAVERSE ROUTINE ADDRESS 
#10$,R5 


PC, (R5) zJSR TO SPECIAL CLI TRAVERSE ROUTINE 
PSTRS 3GO SEE IF MORE OF STRING LEFT 


TRVERR~10$ :TRAVERSE TABLE FOR ‘CLI FUNTIONS’* 


Bete Se Ge Se Se Se Ge Se Se 
—OONOULSWN— 


TRVSTR-10$ 

;NOT A SPECIAL CODE 

20$:  CMPB  (R3),¢R4) SEE IF FIRST CHAR OF STRING IS A MATCH 
BEQ “BR MAT CH 
JSR PC, TRVBRC : GO TAKE MISS BRANCH 
BR P$TRS : THEN BACK Mere G TO MISS 

22$: JSR PC, TRVACT : GO DO ACTION DEFINED BY 

ADD #4-R3 : ODE IN CLI NODE, THEN 

+ ADJUST PTR TO NEXT CL 

SADJUST BUF PTR TO NEXT CHAR IF MATCH 


R4 
PS$TRS 





n 8 
CZDCLB DUP-11 DATA COMM. LINK TEST MACY11 SPA Ieee 20-JUL-83 13:19 PAGE 105 
CZD0CLB.P11 19=JUL=83 17:12 ERSE COMMAND LINE SUBROUTINES 


024364 000207 PSEXIT: RTS PC sRETURN FROM PARSER 


GOTO USER ACTION ROUTINE 
024366 000001 TRVACT: MOVB  1(R3),R2 :GET ACTION CODE FROM CLI NODE 
BIC #1774600,R2 CLE GN EX 
024376 003136 MOV PSACT_R5 
JSR Peta) 


SRETURN TO CALLING CODE 


TAKE BRANCH IN TREE 

024406 TRVBRC: 2(R3) RS :GET BRANCH DISPLACEMENT FROM TREE 
024412 060503 ADD RSLS" AND POINT RETO THE "MISS" NODE 
024414 00020 RTS = PC RETURN TO PSTRV 


3NO BRANCH TAKEN 
024416 TRVNOB: ADD #4 ,R3 s THINGS OK, UPDATE R3 i A — TO NEXT 
024422 RTS PC 3 NODE AND RETURN TO PSTR 


024424 004737 024366 TRVERR: JSR ~ TRVACT 3 TAKE ERROR My 

024430 177777 MOVB P$GDBD SET ERROR RETURN FLAG : 

024436 [GET RID OF “JSR PUSH TO TRVERR’ 
024364 ZRETURN DIRECT TO EXIT OF PSTRV ROUTINE 


024366 TRVEXI: PC, TRVACT sTAKE EXIT Hoy: : 

003147 CL P$GDBD 3SET GOOD/BAD FLAG TO ‘‘SUCCESS (0)"" 
(SP)+ 7GET RID OF “JSR PUSH TO TRVEXI" 

024364 PSEXIT ZRETURN DIRECT TO EXIT OF PSTRV ROUTINE 


024366 PC, TRVACT :GO TAKE BRANCH ACTION 
024406 TRVBRC 
024366 : PC, TRVACT 
003147 T P$GDBD ;SEE_IF P$GDBD SET OR Cee BY ACTION 
E $ ; AR F TO NEXT NODE 
000137 024406 MP sELSE H 
024510 024416 1$: zJUST UPDATE TO NEXT NODE IF THINGS OK 


024514 5005 TRVSPA: R5 sCLEAR "“SPACE OR TAB FOUND’* FLAG 
000011 1$: — & 3SEE IF CHAR. IN CMD LINE= TAB 


AB 
SINC INPUT STRING POINTER 
{INDICATE A TAB FOUND 
GO CHECK NEXT CHAR 


3SEE IF CHAR. IN CMD LINE= SPACE 
; ACE OR NON-TAB C 
SINC INPUT STRING POINTER 
:INDICATE A SPACE FOUND 
CHECK NEXT CHAR 
[SEE IF ANY SPACES OR TABS FOUND 

15$ IF NO, TAK ACTION 

024552 PC, TRVACT °60 TAKE ACTION IF ANY FOUND 





8 9 


SEQ 105 
C2DCLB buP-t1 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83 13:19 PAGE 106 
CZDCLB.P1 19-JUL=83 17:12 E COMMAND LINE SUBROUTINES 
4332 024556 000137 024416 MP TRVNOB zJUST GO UPDATE R3 TO NEXT NODE IF OK 
433 024562 000137 024406 15$:  JMP TRVBRC STAKE BRANCH (MISS) IF NONE FOUND 
4335 
4336 024566 012737 000012 003144 TRVDEC: MOV #10. ,PSRADX sUSE DECIMAL AS RADIX AND ASSUME + 
4337 024574 137 024606 JMP 
4338 024600 TRVOCT: ; (SAME AS TRVNUM SINCE DEFAULT RADIX IS OCTAL) 
4339 024600 012737 000010 003144 TRVNUM: MOV #8. ,PSRADX 3USE OCTAL AS RADIX AND ASSUME + 
4340 024606 005005 TRVNMA: CLR R5 [CLEAR DIGIT COUNTER 
4341 024610 121427 000053 CMPB ss (RG) , #4 3SEE IF THERE'S A + SIGN THERE 
4342 024614 001001 BNE 10$ ; GRIF NO 
4343 024616 000406 BR 11$ > ELSE P$RADX ALREADY SAYS +, JUST BR 
024620 121427 000055 10$:  CMPB (R4),#*= [SEE IF THERE'S A = SIGN THERE 
4345 024624 001004 BNE 1$ ; BR IF NO 
4346 024626 112737 177777 003145 MOVB  #=1,PSRADX+1 °SET ‘MINUS FLAG’ (HI BYTE OF PSRADX) 
4347 024634 005204 11$: INC RG [BUMP R4 TO POINT TO FIRST CHAR 
4349 024636 121427 000060 1$: CMPB ss (R44) , #60 7SEE IF CHAR. LESS THAN A "0" 
4350 024642 002434 BLT 2$ [BR IF YES (NOT NUMERIC) oe 
4351 121427 000067 CMPB 0s (R44) , #67 7SEE IF CHAR. GREATER THAN A "7" 
4352 024650 003426 BLE 13$ : BR IF YES 
4353 024652 123727 003144 000012 CMPB  =—« PSRADX,,#10. tSEE IF IN E 
4354 024660 001417 BEQ 12$ > BR IF YES (CAN USE HIGHER LIMIT) 
4355 024662 121427 000071 CMPB s«(R4) #771 *SEE IF DIGIT WAS A 8 OR 
4356 024666 003022 BGT BR IF 
4357 024670 PRINTF #CLIBRX TELSE WAS A 8 OR 9 WHEN IN OCTAL RADIX 
4358 024670 012746 011700 #CLIBRX,=(SP) 
4359 024674 012746 000001 nov m1 .-(SP5 
4360 024700 01 MOV 
4361 024702 104417 TRAP SSPnTE 
4362 024704 062 000004 #4,SP 
4363 024710 112737 177777 003147 MOVB  #-1,PSGDBD ;SET ERROR RETURN F 
4364 024716 000474 BR 55 + PRINT ERROR AND TARE MISS 
4366 024720 121427 000071 12$:  CMPB  (R4),#71 SEE IF CHAR. GREATER THAN A '9"° 
4367 024724 003003 BGT 2$ <BR IF YES (NOT NUMERIC) 
4368 024726 005204 13$: ‘INC R4 SUPDATE CMD LINE PTR TO NEXT CHAR. 
4369 024 005205 INC R5 S INDICATE A NUMERIC FOUND 
4370 024732 000741 BR 1$ 760 LOOK AT NEXT CHAR. 
4372 024734 005705 2$: TST RS :SEE IF founo ANY NUMERICS 
4373 024736 001464 BEQ 5$ [BR IF NO, TAKE ‘MISS’ BRANCH 
4374 024740 010401 MOV R4,R1 [GET POINTER TO START OF NUMERIC STRING 
4375 024742 160501 SUB R5.R1 
4376 024744 005037 003142 CLR PSNUM ZCLEAR LOC. WHERE VALUE WILL BE STORED 
4377 0264750 11210 3S: MOVB  (R1)+,R2 GET ASCII CHAR AND CONVERT IT TO A @# 
024752 162702 000060 SUB #60,R2 
4379 024756 006337 003142 ASL PSNUM :SHIFT CURRENT VALUE TO MAKE ROOM 
4380 024762 103437 BCS 7$ TERROR IF 00 BI 
4381 024764 013737 003142 003140 MOV PSNUM,PSCNT [SAVE FOR LATER IN CASE DECIMAL RADIX 
4 024772 006337 003142 ASL PSNUM 
4383 024776 103431 BCS 7$ ZERROR IF NUMBER TOO BIG 
025000 006337 003142 ASL PSNUM 
4385 025004 103426 BCS 7$ sERROR IF NUMBER TOO BIG 
4386 025006 123727 003144 000012 CMPB  —s- P$RADX,, #10. :SEE IF DECIMAL RADIX 
4387 025014 001004 BNE 4$ ‘BR IF NOT EQUAL 


CZDCLB DUP=-11 DATA COMM. LINK TEST 
19-JUL-83 17:12 


CZ0CLB.P11 
4388 025016 


rrr 025236 
4443 025242 


S=SS222 
_ parr Sars 
™m g wr 
=I “ 
Ww 


acs 


SxS S333 
sate 


= 
Ss 
woe er 
Fat ee 
m= 
UNNNY NGS 


g 
x3 


003140 003142 
003142 


003145 
003142 
024366 
024416 


011656 
000001 


000004 
177777 
024406 


c 9 


PSCNT ,PSNUM 


PSNUM 
PC, TRVACT 
TRVNOB 


#CLINBG 


#~1,PSGDBD 
TRVBRC 


RS 
(R4) #101 
(R4) #132 
2s 


3$ 

PC, TRVACT 
TRVNOB 
TRVBRC 

RS 

(R4) ,#60 


(R4) #72 
1$ 


R4 
R5 


10$ 

(R4) ,#101 
rs 

(R4) ,#132 
2s 


ts 

i 

3$ 

PC, TRVACT 
TRVNOB 
TRVBRC 


MACY11 PH 20-JUL-83 13:19 PAGE 107 
RSE COMMAND LINE SUBROUTINES 


sERROR IF NUMBER TOO BIG 
sERROR IF NUMBER TOO BIG 


‘or ae NUM WAS PRECEDED BY A - SIGN 
a fuse NEGATE ye! NUMBER BEFORE LEAVING 
INCE NUMERIC FOUND, GO TAKE ACTION 
‘80 POINT R3 TO NEXT NODE 


;PRINT NUMBER TOO BIG ERROR 
MOV #CLINBG 
MOV #1,-(SP) 
MOV SP, 
TRAP  CSPNTF 


3SET ERROR RETURN FLAG 
;TAKE 'MISS'' BRANCH 


:CLEAR ALPHA FOUND F a 
SEE IF CHAR. LESS THAN A “A 
3BR IF VES (NOT ALPHA) ie * 
SEE IF CHAR. GREATER THAN A “Z 
:BR IF YES (WOT ALPHA) 
{UPDATE CHD LINE BTR TO NEXT CHAR 
ATE AN ALPHA WAS FOUND 


AT NEXT CHAR. 
3SEE it ALPHA’S WERE FOUND 


TIF ANY FOUND TAKE ACTION 
3 THEN re RS TO NEXT NODE -NO BRANCH 
[NONE FOUND, TAKE MISS BRANCH 


GO LOOK AT NEXT CHAR. 
SEE IF CHAR. LESS THAN A ‘‘A’’ 


BR IF YES ¢ ) 
s UPDATE ‘gt ee PTR TO NEXT CHAR 
0,40 ar PHA FOUND 


: NONE FOUND, TAKE Miss BRANCH 





—_— 


CZDCLB_DUP-11 DATA C LINK TEST 
1S-JULSBS 7:12 


CZDCL8.P1 


02524 
4448 02525 


S8S8nSsSsssZF 
PS ad NAN a SUI NII 


S 
Sets 


0031 00 


MACY11 SOA IRE? 20-JUL-83 13:19 PAGE 108 
E COMMAND LINE SUBROUTINES 


TRVSTR: ror sPOINT R1 TO CMD STRING 


sPOUNT RS A, olka STRING FROM CLI NODE 
C ZCLEAR CHAR MATCH COUNT 
2s: ost SEE i wae END OF MATCH STRING YET 


YES 
iSEE IF END OF CMD LINE YET 
(R1),(R5) +SEE IF CHARACTERS MATCH 
10$ NO 


PSCNT SMATCH INCREMENT MATCH COUNT 
R1 UPDATE STRING POINTERS 


3BR TO CONTINUE CHECKING CHARS. 


3 WHEN DONE SEE _IF ANY MATCHES FOUND 
IF NO, GO TAKE THE MISS BRANCH 
SPOINT CHD os ies, S END OF STRING & 


A MA DO MATCH ACTION 
ZUPDATE RS. 10 "Next NODE NO BRANCH) 

+ (NO RETURN THRU T RUNGE. SINCE DIFFERNT 
: DISPLACEMENT DUE TO MATCH STRING) 
15$: : GO TAKE BRANCH 


3 (PARSED OK), -1 IF ILL CMD..... 


SEQ 107 





S 


CZDCLB DUP=11 DATA com 7 ix TEST MACY11 30A(1052) ae 13:19 PAGE 109 
CZ0CLB.P11 19-JUL=83 17:12 REPORT CODING SECTI 


-SBTTL REPORT CODING SECTION 


i Me REPORT CODING SECTION CONTAINS THE 
PRINTS’ CALLS THAT GENERATE STATISTICAL REPORTS. 


025336 BGNRPT 
025336 LSRPT:: 


025336 004737 020612 JSR PC REPORT 3CALL SUBROUTINE TO DUMP EVENT LOG 
AND BASE TABLE 


534 L10010: 
025342 104425 TRAP CSRPT 





F 9 


CZDCLB _DUP-11 DATA COMM. LIK TEST MACY11 feaCleee? 20-JUL-83 13:19 PAGE 110 
CZ0CLB.P11 19-JUL=83 17:12 PROTECTION TABL 


~SBTTL PROTECTION TABLE 


"Tals TABLE IS USED BY THE RUNTIME SERVICES 
; 10 PROTECT THE LOAD MEDIA. 


025344 
025344 LSPROT:: 


025344 177777 sOFFSET INTO P-TABLE FOR CSR ADDRESS 
025346 177777 SOFFSET INTO P=TABLE FOR MASSBUS ADDRESS 
025350 177777 OFFSET INTO P-TABLE FOR DRIVE NUMBER 


025352 ENDPROT 





CZDCLB DUP=11 DATA COMM. LINK TEST 
19=JUL=83 1 


CZ0CLB.P11 


025352 
025352 


025352 
025356 


025510 


G6 9 
MACY11 30A(1052) 20-JUL-83 13:19 PAGE 111 


17:12 INITIALIZE SECTION 
-SBTTL INITIALIZE SECTION 


2 THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
3 AT THE BEGINNING OF EACH PASS. 


003010 
006564 


006564 


177777 006566 = INIT1: 


000040 


000036 


026120 
000035 


0065 

006626 
006622 
000114 


017732 
000100 006632 


BGNINIT 


KEYWD1 


MOV #~1 ,RESFLG 
READEF #EF.START 
BCOMPLETE START 
READEF #EF .RESTART 


BCOMPLETE RESTRT 
READEF #EF .CONTINUE 


BNCOMPLETE $1 
JMP ENDIT 
READEF #EF .NEW 
BCOMPLETE NEW 


BR GETPRM 


CLR RESFLG 
CLR CLKVEC 


MOV #CLKCSR,R2 
CLOCK L,RI1 


BNCOMPLETE $2 


PC, CLKSET 
#LCLKEN, CLKEN 
RESTR 


P,R1 


LSINIT:: 


INIT COMMAND STORAGE VARIABLE 
sAEXIT COMMAND ? 


BRANCH 
Nit "DO CLEAN VARIABLE * 
:G0 CLEANUP AND EXIT 
TRAP  CSDCLN 


3SET RESTART FLAG 

zIF HERE CAUSE OF START,DO SOME INIT 
MOV #EF START RO 
TRAP CSREFG 


Bcs START 
31F HERE CAUSE OF seas SOME IN 


TRAP 


NIT 
#EF RESTART RO 
CSREFG 


BCS RESTRT 
sSEE IF WERE HERE CAUSE OF A CONTINUE 
4 seen ae 
3BR IF NOT HERE CAUSE OF SCONITILE 
zJMP IF HERE CAUSE OF A_ CONTINUE 
7SEE IF THIS IS A ‘NEW — 


TRAP 
:IF YES, BR AROUND LOGUNIT # SETUP 
BCs NEW 


sCLEAR RESTART FLAG SINCE HERE ON START 
ZCLEAR suk VECTOR PTR. AS A FLAG IN 


cL cK 1S FOUND. 
SETUP _R2 AS A PTR. TO CLOCK INFO BLOCK 
LOOK FOR A LINE CLOCK 


MOV *L,RO 
TRAP estick 
MOV 
: IF NONE THERE GO LOOK FOR A P-CLOCK 
: GO SET UP CLOCK INFO TABLE & CLK VEC. 
[SETUP THE ENABLE LINE CLOCK DATA 


;LOOK FOR A P-CLOCK SINCE NO LINE CLOCK 
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CZDCLB DUP-11 Bathe COMM. Lik TEST 20-JUL-83 13:19 PAGE 112 
CZDCLB.P11 JUL-83 17:1 


012 000120 
104 


g 


PUPP SAIN 
+o 


—— 


MOV 
BNCOMPLETE $3 3 IF NONE THERE GO SEE 5 | THIS I 


PC,CLKSET ; ELSE GO SET UP CLOCK INFO & VE 
#2.CLKCSR [POINT CLKCSR TO PCL COUNT SET REG. 
#PCLKCT,@CLKCSR [LOAD CLK SET REG. WITH COUNT VALUE 
#2,CLKCSR [POINT CLKCSR BAC TO P-CLK CSR 
#PCLKEN, CLKEN [SETUP THE ENABLE THE P-CLK DATA 


™m 


READ BUS TYPE TO SEE IF A AN LSI 
TRAP C$RDBU 
BNCOMPLETE $4 3BR IF NOT, NO CHANCE - os 


MOV #100, CLKVEC ;LOAD 100 AS CLK VECTOR 
R CLKBR 3LOAD Q AS CLK INT. LEVEL 
ACLKEN, CLKCSR KLUDGE UP THE CSR & ENABLE DATA LOCS 
L5060,CLKH2,D,377, 50..60°- YES sat 


TSHILIM 
10000$: 
RESTRT 


H #BDCLK : INFORM OPR. NO CLOCK, & EXIT INIT 
014210 MOV #BDCLK,-(SP) 
000001 MOV 4] ae 
RAP 


T SSPRTE 
000004 ADD #4,SP 


006634 RESTRT: ¢ TIMAIN sCLEAR TIME SINCE START LOCATIONS 


TIMSEC 
MOV CLKHZ, TIMTCK ZLOAD TICKS/SEC 
5 #EVTLOG,R2 SINIT EVENT TABLE TO ALL 1°S AFTER EACH 


Seeees 


Re EVIBTR START OR RES AND INIT TABLE POINTER 


17777 : =I, 
007554 R2 ,#EVTEND zSEE_IF REACHED END OF TABLE 
BNE i$ OOP UNTIL DONE 


177777 : #-1,LOGUNT s INITIALIZE LOGICAL UNIT # 


025714 5237 006560 : LOGUNT 3POINT " NEXT LOGICAL UNIT 
006560 CMP LOGUNT ,LSUNIT 3SEE if PAST MAX. LOG. UNIT # 
025726 002367 BGE NEW BR IF YES, AND START OVER 


GPHARD LOGUNT,R1 3GET THE P-TABLE FOR THIS LOG. UNIT 
006560 MOV LOGUNT ,RO 
TRAP CSGPHRD 


SESESEEEES. 
SWONOUSwWN—o 


gat 





19 


CZDCLB DUP=11 DATA COMM. LINK 7H oD aan 13:19 PAGE 113 
CZDCLB.P11 19-JUL=83 17:12 


025736 010001 MOV RO,R1 
025740 BNCOMPLE TE GETPRM z1F NO P-TABLE AVAIL., GO NEXT ONE 
025740 103365 Bcc GETPRA 


025742 011137 MOV (R1) ,FHDPLX 3PUT FULL OR HALF DUPLEX ANSWER IN LOC. 


SEQ 112 


sDEVICE DEPENDENT PART OF GETTING INFO FROM P-TABLE 
2(R1) ,RXCSR sSTORE AWAY CSR ADDRESSES 


So 
= 
o 
= 
al 
~N 


So 
= 
on 
~“N 


2(R1) ,PARCSR 
2(R1) ,RXOBUF 
#2, RXDBUF 
2(R1),TXCSR 
#4, TXCSR 
2(R1) , TXOBUF 
#6, TXDBUF 


z 


daciwuinelcs 


N 


o 
= 
o 
~N 


NN 


So 
= 
oa 
ADE EMM 


a 

= 

o 
NN 


g 


1) ,INVEC sSTORE AWAY INPUT INTERRUPT VECTOR 


(R 

(R1) ,OUTVEC 
sBUILD OUTPUT INTERRUPT VECTOR 
ZSTORE AWAY INTERRUPT PRIORITY 
TSTORE AWAY - REMOTE NODE TYPE 
;MULTI-POINT = 
31F MULTI-POINT GET ADDRESS FROM PTABLE 
oIf POINT-POINT ADDRESS ALWAYS =1 


STORE AWAY TRIB ADDRESS 


oo 
om 
ao 
—— 
WW 
AN 


SRR PELL SSS 


N 
Soooseo oCoOoooooo 
Seen SS 


hd be ad a a a os 


o1 
01 


=8 

—_ 

MARX 
a 

oO WWW 
ANN 
—VI 
Win 
fone 


Wo 
Nuns 


: 


—! 
= 
o 
~— 


SETVEC CLKVEC ,#CLKINT #340 sSETUP CLOCK VECTOR 
#340,-(SP) 


sDEVICE DEPENDENT VECTOR SETUP 
SETVEC INVEC ADVRXI ,#PRIOS SETUP INPUT INTERRUPT iy + a 


MOV 
AD 
SETVEC OUTVEC .#DVTXI ,#PRIOS zSETUP OUTPUT INTERRUPT oo 





CZDCLB DUP=-11 DATA COMM. LINK TEST 
CZDCLB.P11 19-JUL=83 17:12 


062706 000010 


012700 000000 
104441 


104432 
000002 


J 9 


MACY11 30A(1052) 20-JUL-83 13:19 PAGE 114 


INITIALIZE SECTION 


SETPRI #PRIOO 


EXIT INIT 


-EVEN 
ENDINIT 


ADD 
3SET THE ‘RUN’ PRIORITY TO 0 
MOV 
TRAP 
TRAP 
WOR 


SEQ 113 


#10,SP 


#PRI00,RO 
CS$SPRI 


CSEXIT 
L10012-. 


CSINIT 





CZDCLB_DUP-11 DATA COMM. LINK TEST 
CZDCLB.P11 19-JUL=83 17:12 


4702 
4703 026236 
4704 026236 


4706 
4707 026236 
4708 026236 
4709 026236 104461 


K 9 


MACY11 a isa 20-JUL-83 13:19 PAGE 115 
AUTODROP SEC 


-SBTTL AUTODROP SECTION 


; "THIS, CODE A EXECUTED iat a3) AFTER THE INITIALIZE CODE IF 
; THE S SET. THE UNIT(S) UNDER TEST ARE CHECKED TO 
; SEE IF THEY Uiue RESPOND. THOSE THAT DON'T ARE IMMEDIATELY 

; DROPPED FROM TESTING. 


BGNAUTO 
LSAUTO:: 


ENDAUTO 
L10013: 


TRAP 


SEQ 114 
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SEQ 115 

CZDCLB DUP=11 pata com COMM. LINK TEST MACY11 30A(1052) 20-JUL-83 13:19 PAGE 116 
2DCLB.P1 izt 12 CLEANUP CODING SECTION 
4710 .SBTTL CLEANUP CODING SECTION 
471 s* 
471 ; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
ari ;_AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 
4716 
4717 026240 BGNCLN 
478 026240 LSCLEAN: : 
4720 026240 005077 160356 CLR @CLKCSR :DISABLE CLOCK 
4721 026244 SETPRI #PRIO7 *SET PROCESSOR PRIORITY BACK TO oa 
4722 026244 012700 000340 #PR107,RO 
4723 026250 104441 TRAP CSSPRI 
4724 026252 022737 000057 003010 CMP WEXIT,KEYWD1 =; "EXIT® COMMAND ? 
4725 026260 001416 BEQ EXITCLN YES BRANCH 
4727 z:L0G “C ABORT IN EVENT LOG 
4728 026262 012737 000026 006534 MOV #AB0, TEMP sEVENT TYPE 

026270 013737 006502 006544 MOV OPVAR, TEMPS SSTART TIME-OUTS 
4730 026276 013737 006504 006540 MOV PSCNT TERPD [PASSES 
4731 026304 013737 006506 006542 MOV ERRCNT « TERPS 3E 
4732 026312 004737 020506 JSR PC,L 760 LOG IT 
4733 026316 EXITCLN:BRESET [CLEAR ALL BEFORE END 
4734 026316 104433 TRAP  CS$RESET 
4736 026320 EXIT CLN 
4737 026320 104432 TRAP CSEXIT 
4738 026322 000002 : L10014=. 
4739 
4740 
4741 EVEN 
4762 
4743 026324 ENDCLN 
4744 0263246 L10014: 


4745 026324 104412 TRAP CSCLEAN 


CZDCLB DUP-11 DATA cor ik TEST MACY11 gg 20-JUL-83 13:19 PAGE 117 
CZDCLB.P11 19-JUL=83 17:12 DROP UNIT SECTI 


~SBTTL DROP UNIT SECTION 


SEQ 116 


THe DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
; 10 NO LONGER BE TESTED. 


026326 BGNDU 
026326 


026326 
026326 «WORD JSJMP 
026330 000000 «WORD 1L10015-2-. 


026332 
026332 
026332 
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CZDCLB DUP-11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83 13:19 PAGE 118 
CZDCLB.P11 19-JUL=83 17:12 IT SECTION 


ADD UN 


-SBTTL ADD UNIT SECTION 


p++ 
; THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
; ° Me CONJUNCTION WITH THE ADDING OF A UNIT BACK 


BGNAU 


026340 
026340 
026340 104452 


SEQ 117 
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NK TEST mer 30A(1052) 20-JUL-83 13:19 PAGE 119 
2 TEST 1: SETUP AND MODES OF OPERATION 


-SBTTL TEST 1: SETUP AND MODES OF OPERATION 


SEQ 118 
CZDCLB_DUP-11 DATA COMM. LI 
CZDCLB.P11 19=JUL=83 17:1 


; "Test TO DETECT FAULTS IN THE DATA COMMUNICATION LINK. nee TEST WILL 
; THE od COVERAGE NECESSARY TO ISOLATE FAILURES TO THE COMPUTER 
EQUIPMENT, THE COMMUNICATION LINK, OR THE MODEM. 


-SBTTL PROGRAM SETUP SECTION 
026342 006632 160252 CLKEN,@CLKCSR ;ENABLE THE CLOCK 
026350 GTXRXB: 
GTRA2: 
SET TIMER 19 COUNT 1 TICK 


MOV 
1$: TIMER sCHECK FOR IT TO BE COUNTED OFF 
RA3 ZBRANCH IF CLOCK EXISTS (COUNTED A TICK) 


BNE 1$ 3KEEP CHECKING UNTIL R1 DOES FULL COUNTDWN 
PRINTF [PRINT BAD CLK MSG AND WARN OF ~~ IF TIMEOUT 


#NOCLK ,~(SP) 
1 P) 


RESFLG sSEE i HERE AFTER A RESTART. 
GTRAS 3BR IF HERE CAUSE OF A RESTART 


COUNTS AND SET UP DEFAULTS 


; CLEAR TOTAL 
INIT TRANSMIT MESSAGE POINTER 


: ZERO RX POINTER 
006444 #PTR13,CMPPTR ;INIT COMPARE MESSAGE POINTER 


000005 #5 MS 3SET UP DEFAULT MSG TYPE (QUICK FOX = ITEP MSG) 
O06] 95 Boe? 336 mest. cunee 3SET UP DEFAULT CHAR COUNT 

1 66468 aT CURAD SET UP CURRENT ADD TO START OF TX BUFFER 
005150 PCMPBUF LCCURAD 3SET UP CURRENT ADD TO START OF CMP BUFFER 


as 006526 TCURAD,CURADD ;SETUP CURRENT ADDR TO START OF TXBUF 
MO TXPTR, CPTR ; SETUP CURRENT POINTER TABLE POINTER FOR TXBUF 
PC ,BLOBUF : 60 BUILD POINTER TABLE AND BUFFER 
026526 b5a0e1 006462 MO #1 TXMTOT [BUMP TOTAL MESSAGE COUNT 
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CZ0CLB rs ATA cor NK TEST MACY11 a dh Gs 20-JUL-83_ 13:19 PAGE 120 
CZ0CLB.P11 JUL-83 1 AM SETUP SECTION 


SEQ 119 


CMPPTR,CPTR 3SET UP START OF COMPARE POINTER TABLE 
C CCURAD - CURADD 3SET UP CURRENT ADDR. TO START OF CMPBUF 


msése CURCC 
F PUT DEFAULT MESSAGE INTO CMPBUF 
#1. CMPTOT TBUMP THE C COUNT 

#ACT MODTYP :SET DEFAUL 


#1,RPASS 
#2,PARAM 


a 


NNN 


OPERATOR STATUS MSGS. PRINT OFF 
#HLPO 


012213 MOV #HLPO,-(SP) 
000001 MOV #1,-(5P) 
MOV $P.RO 
SETVEC INVEC,MDVRXI,#PRIOS ;DEFAULT NON-PROTOCOL RX INTERRUPT ROUTINE 
900240 #PRIOS,=(SP) 
03555 e #DVRXI,-(SP) 
6 0114 INVE ) 
00000 


Oooo 
tb ae 


: 


000004 


aan & 
ae 


=—Oooo0o 
St a a 


MOV 
TRAP 


10 AD 
300 #PRORUN! ABORT , PARAM z INIT PROTOCOL VARIABLES 
006570 MOV MODTYP,DEV1 
006572 007706 MO MLTYP DEV. 
RPASS ,DEV 
B08 76 PARAM ,DEV4 
023714 PC, SHWOP 3PRINT TO OPERATOR THE CURRENT MODE...... 
3SEE IF MANUAL INTERVENTION ALLOWED 


TR CSMANI 
BCOMPLETE GETCL ; OR IF YES (UAM=0 AND NOT ne, eeter 
TST RPASS sSEE IF THIS IS FIRST rene PASS" 
BNE 1$ ; BR IF NOT COMPLETED 1 P 
EXIT TST : IF DONE 1 PASS IN UNATTENDED a - EXIT 
"ao 


zg 


006572 1$: MOV #TTL MLTYP 3SET UP DEFAULT FOR UNATTENDED MODE 
JMP GTR9 3 "'R M=ACT/LO=1/PAS=1/NOST/CH’’ AND RUN 


» SBTTL COMMAND LINE FETCH & INTERPRETATION SECTION 
GETCL: he eeecee sCLEAR CMD LINE PARSING ERROR FLAGS 
GMANID CLISPM,CMDBUF ,A,-1,1,72.,NO 3GET A COMMAND re an oe 
100008 


CMDBUF 
TSCODE 
CLISPA 
WORD - 
027010 000001 TSLOLIM 
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MACY11 30A(1052) ste 1h “83 13:19 PAGE 121 
COMMAND L 


CZDCLB_DUP-11 DATA COMM. L TEST 
NE FETCH & INTERPRETATION SECTION 


CZ0CLB8.P11 19=JUL=83 17: 


003146 


_ 
So 
mn 


s 
oo rwnN 


NN 
ae 


011633 
000001 


=-oooe 

ome and mab 
£ Lalas 
—_ 


te 


#CMDBUF , PSBUFA 
#CLITRE ,PSTREE 
#CLIACT,PSACT 
QUALF 

PC ,PSTRV 
P$GDBD 


& 
#CLIERM 


GETCL 
PSNNUF 


10$ 
#CLINUF 


GETCL 

KEYWD1 ,@SETET 
GETCL 

KEYWD1 ,#HLP 
KEYWD1 ,#PRNT 
GETCL 

KEYWD1 ,#RUN 
11$ 


GTRO 
oe 
12$ 
PC.DUMPSR 
GETCL 
KEYWD1 ,#EXIT 


#1,DCLFLG 
TST 


KEYWD1 ,#CLEAR 
KE wor o#SHOW 
a oMSETEXP 


TTOTCC, TOTCC 
TOTCC ,ABUFLIM 


BLT 
PRINTF #MSGTRN,#BUFEX 


«WORD TSHILIM 
10000$: 


CLEAR, QUALIFIER FLAG LOCATION 
[SEE IF PARSED OK OR AN ERROR 
MOV #CLIERM,=(SP) 
mov I .=(SP) 
TRAP  CSPNTF 
ADD #4,SP 
;SEE IF INCOMPLETE COMMAND TYPED 
MOV #CLINUF 
MOV #1,-(SP) 
MOV SP, 
TRAP CSPNTF 
ADD #4,SP 


-(SP) 


wet EXPECT=TRANSMIT’* TYPED ? 


-BRANC 
iSee IF HELP WAS TYPED 
760 GET ~ Lat IF YES 
3SEE IF PRINT WAS TYPED 
; GO GET CMD aa IF YES 
; WAS TYPED 


DUMP PART OF MEMORY 
{RETURN 70 GET ANOTHER CMD. 


BRANCH 

Sef CLEANUP FLAG 

[GO BACK TO INIT 
TRAP  CSEXIT 
«WORD 110017. 


O GET ANOTHER CMD. 
PECTED 
TEXP WAS TYPED) 


wn 
=~ m muamwmnh 
Cie re ee ee ee 


FULL 
# OF CHARS.) 
*T BUILD MSG. 
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CZDCLB DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83_ 13:19 PAGE 122 
CZDCLB.P11 19-JUL-83 17:12 COMMAND LINE FETCH & INTERPRETATION SECTION 


4960 0373 B157e6 O14373 SOv | SRSGTRN, <¢SPD 


20° = (SP) 


8s 38 Sie7e 2 
Ey 


027 
027510 
027514 


027606 
027612 


GETCL 

TTOTCC 

rs 3 

TXMTOT 
#PTRTAB, TXPTR 
TXMTOT,R1 
R1,4MSGLIM 


#MSGTRN, #TABEX 


CPTR, TXPTR 

Torce, TTOTCC 

CURADD, TCURAD 
TOT 

QUALVL 

5$ 

GETCL 


crorcc, TOTCcCc 
{oLCe AOL ES 


#MSGTRN, #BUFEX 


GETCL 
TOTCC 


CMPTOT 


#PTR13,CMPPTR 
CMPTOT.R1 
R1,4MSGLIM 
18$ 


MOV 
TRAP espn 
ADD 
ET A NEW COMMAND 
“SET’* THEN GET RID OF DEFAULT 
3GET POSITION OF END OF TX LIST 
:SEE IF MSG COUNT EXCEEDED. 
F NO 


; THEN GO GET A NEW COMMAND. 
7# OF MSGS *4 = NEXT FREE PTR BLOCK 
sSETUP CHAR. COUNT, CURRENT ADDR, & PTR 


ADD_IN CHAR. COUNT AND CHECK TOTAL 
$60 BUILD MESSAGE IN BUFFER AND PTRS. 


sUPDATE CHAR. COUNT, CURR ADDR, & PTR 


sDEC THE COPY COUNT 


SETUP CHAR. COUNT re. ae. & PTR 


UL 
: ELSE TELL OPR. AND oe ee 


TRAP 


ADD 
3 THEN GO GET A NEW COMMAND 
cIF FIRST “‘SET’’ THEN GET RID OF DEFAULT 


zINIT COMPARE MESSAGE POINTER 
sSEE IF MSG COUNT EXCEEDED. 
BR IF NO 
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CZDCLB DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83_ 13:19 PAGE 123 
CZDCLB.P11 19-JUL=83 17:12 COMMAND LINE FETCH & INTERPRETATION SECTION 


PRINTF #MSGTRN,#TABEX ; ELSE TELL OPR. AND DON'T BUILD MSG. 
MOV #TABEX (SP) 


aad cet ad a 
NN 
SOS 


és 


-cCooo 


MOV 
TRAP 


ADD 
3 THEN GO GET A NEW COMMAND. 
3# OF MSGS *4 = NEXT FREE PTR BLOCK 


a 


SSSSz 


oo 
== 


zADD IN XHAR. COUNT AND CHECK TOTAL 


ase 


PC .BLDBUF 
CPTR, CMPPTR 
CMPTOT 


S 


ZUPDATE CHAR. COUNT, CURR ADDRR. & PTR 
ou IF copy WAS GIVEN, PUT MSG IN BUFF 
GETCL :G0 BACK UNTIL GET A "‘RUN’ 


oo 
== 
WISIN 


CURADD , CCURAD 
ToTcc,cTOoTCcc 
QUALVL 


ge 
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CZDCLB_DUP=-11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83_ 13:19 PAGE 126 
CZDCLB.P11 19-JUL-83 17:12 COMMAND LINE FETCH & INTERPRETATION SECTION 


SEQ 123 


504 .SBTTL ACTION TABLE AND ROUTINES | 
5044 ; USER MUST CLEAR/SET PS$GDBD IF USE “‘CLIBIF'’ IN CONNECTION WITH ACTION 
5045 ; R2 WILL HOLD ACTION CODE FROM PARSING (CLI) NODE 
5046 027740 CLIACT: 
5047 027740 006302 ASL R2 sMULTIPLY ACTION CODE BY 2 
5048 027742 016202 027756 MOV 10$(R2) ,R2 SOFFSET VALUE 
5049 027746 062708 027756 ADD #10$,R2 sADD BASE VALUE 
5050 027752 00471 JSR PC, (R2) :GO DO ACTION 
3051 027754 000207 RTS PC [RETURN TO TRVACT: 
5053 sBRIEF DESCRIPTION OF ACTONS TAKEN 
5054 027756 000150 10$:  .WORD ACTNUL-10$ 3 
5055 027760 00015 “WORD ACTCLR-10$ [CLEAR 

027762 0001 “WORD ACTSHO-10$ + SHOW 
5057 027764 001550 “WORD ACTCHK-10$ + CHECK 
5 027766 900262 “WORD ACTRUN-10$ : 
5059 027770 0001 “WORD ACTHLP=1 “HELP 

7772 900506 “WORD ACTCSE=1 [CLEAR OR SHOW EXPECT 

5061 027774 0004 “WORD ACTCST=1 [CLEAR OR SHOW TRANSMIT 
5 027776 900722 “WORD ACTSTE-10$ :SET EXPECT 
5063 030000 73 “WORD ACTSTT-108 SET T IT 
5064 030002 000750 “WORD ACTSZE-10$ $12 
5065 030004 000760 “WORD ACTCOP-10$ COPY 
5066 030006 000770 “WORD ACTNUM-10$ [NUMERIC VALUE FOR SIZE OR COPY 
5067 030010 001 WORD OPM-10$ [QUOTED MESSAGE FROM USER 
5068 030012 001556 “WORD ACTSTS-10$ : STATUS 
5069 030014 001102 ;WORD ACTEQO-10$ SEND OF QUOTED MESSAGE FROM USER 
5070 030016 001162 “WORD ACTMSO-10$ [ONES AS DATA 
5071 030020 001170 = WORD TMS1=10$ [ZEROS AS DATA 
5072 030022 001200 “WORD ACTMS2=10$ :1ALT 
5073 030024 01210 “WORD ACTMS3-10$ SOACT AS DATA 
5074 030026 001220 “WORD ACTMS4-10$ S ITEP AS DATA 
5075 030030 001230 “WORD ACTMSS-10$ SCCITT AS DATA 
2076 030032 001246 “WORD ACTMS6-10$ “ALPHA AS DATA 
5077 030034 001334 “WORD ACTATV-10$ SACTIVE MODE 
5078 030036 001344 “WORD ACTPAS-10$ : VE 
5079 030040 001364 “WORD ACTREC-10$ SRECEIVE MODE 
5080 030042 001372 ‘WORD ACTLIS-10$ SLISTEN MODE 
5081 030044 00140 “WORD ACTDLL-10$ SDOWNLINE LOAD 
5082 030046 00141 “WORD ACTTRA-10$ S TRANSMIT MODE 
5083 030050 00142 “WORD ACTTAL-10$ STALK MODE 
5084 030052 001450 “WORD ACTNO-10$ [NO IE /NOCHECK 
5085 030054 001460 “WORD  ACTECH-108 SECHO 
5086 030056 001564 "WORD ACTCRC-1 CRC 
5087 0 001600 “WORD ACTPRO-1 : PROTOCOL 
5088 030062 001632 “WORD ACTRPS=1 STATUS 
5089 030064 00164 “WORD ACTMOP=10$ *SATELLITE IN MAINTENANCE LOOP MODE 
5090 030066 00165 “WORD ACTTLP=10$ + INTERNAL TTL 
5091 0300 001 "WORD ACTCLP-10$ [CABLE L 
5092 030072 001 "WORD ACTLLP=1 [LOCAL MODEM LOOP 
5093 030074 00170 "WORD ACTRLP=1 [REMOTE MODEM L 
5094 030076 900148 "WORD ACTNUF=1 [MORE COMMAND NEEDED 
5095 030100 00114 “WORD ACTBCR-108 [BAD CHARACTER IN OPERATOR MESSAGE 
5096 030102 000656 “WORD ACTDMS-10$ [DUMP MEMORY START ADDRESS 
5097 030104 000706 “WORD ACTDME-10$ SDUMP MEMORY END ADDRESS 
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CZDCLB DUP=-11 DATA COMM. LINK TEST MACY11 et 20-JUL-83 mh - PAGE 125 
CZDCLB.P11 19-JUL-83 17:12 ON TABLE AND ROU 


SEQ 124 


ACTDMQ-10$ ; DUMP WORD 
ACTPRT-108 T 

ACTMOS-10$ {MODEM STATUS 

30114 000236 ACTEXT=10$ EXIT ROUTINE 

030116 001272 ACTSEX-10$ 3SET EX=TR 
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CZDCLB_DUP=-11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83 13:19 PAGE 126 
CZDCLB.P11 19-JUL=83 17:12 ACTION TABLE AND ROUTINES 


ey 
SF 


030120 112737 177777 003146 ACTNUF: MOVB #-1,PSNNUF 3SET FLAG TO SAY NEED MORE OF COMMAND 
030126 000207 ACTNUL: RTS PC sRETURN TO PARSER 


012737 000001 003010 ACTCLR: MOV ACLEAR,KEYWO1 ;SET LOC TO SAY A CLEAR WAS TYPED 
000207 RTS PC 


000002 003010 ACTSHO: psa ~ trent 3SET LOC. TO SAY A SHOW WAS TYPED 


003016 ACTHLP: MOV #HLPTAB,R2 SETUP R2 AS A POINTER TO HELP MSG TABLE 
1$: PRINTF #HLPF,(R2)+ sPRINT HELP INFORMATION MESSAGES 


MOV (R2)+,=(SP) 
012271 MOV #HLPF ,-(SP) 
000002 MOV #2,-(SP) 
MOV PRO 
TRAP CSPNTF 
#6 


perp erry 
ed a ed ed aed ed ed ad ed 


R2 ,#HLPEND 3SEE IF ALL INFO PRINTED YET 
31F NO KEEP PRINTING 
ahaa 3SET LOC. TO SAY A HELP WAS TYPED 


FUTUSUSUSUSUSUSUSUSUS SSIS SSIS ST SST ST 


ee ee ee ee ee ee ee 


ACTEXT: MOV #EXIT ,KEYWD1 sEXIT COMMAND WAS INPUT 
PC 3RETURN 


ACTPRT: #PRNT ,KEYWD1 SET LOC. TO SAY A HELP WAS TYPED 
rent 3CALL ROUTINE TO PRINT EVENT LOG AND BASE TABLE 


ACTRUN: #RUN, KEYWD1 :SET RUN FLAG 
MOVB = #=1 , PSNNUF SSET FLAG TO SAY NEED MORE OF COMMAND 
a RPASS :SET DEFAULT RUN "PASS TO 1 


ACTCSE: #PTR1I3,CMPPTR ;INIT COMPARE MESSAGE POINTER 
MO CMPPTR,R1 


BERSSELSAR UNIS VENSORONTS 


DD md ad med ad tb ed hd a te 


CMPTOT ,R2 
3FLAG THAT HAVE VALID COMMAND AT THIS PT. 
KEYWD1 ,#SHOW 3SEE_ IF A CLEAR OR SHOW WAS TYPED 

ACTSHW 3BR_IF A SHOW WAS TYPED 

#1, CMPTOT sCLEAR COMPARE MESSAGE COUNT, CHAR. COUNT 
crorcc 3 AND RESET POINTER 


#PTR13,CMPPTR ;INIT COMPARE MESSAGE POINTER 
CMPPTR.CPTR [SET UP TO FILL IN DEFAULT MESSAGE 
SCMPBIE RI 
R1, CCURAD 
ACTCLB 
ACTCST: #PTRTAB,R1 
MO 


TXMTOT ,R2 
3FLAG THAT HAVE VALID COMMAND AT THIS PT. 

KEYWD1 ,#SHOW 3SEE IF A CLEAR OR SHOW WAS TYPED 

ACTSHW 3BR IF A SHOW WAS TYPED 


FURUNISSESGR 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
e 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 


eed ae a a a wd 2 ts ts at od a th 


Vn 
oon 
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CZDCLB_DUP=-11 DATA COMM. LINK TEST MACY11 pth a 20-JUL-83 iz ly PAGE 127 
CZDCLB.P11 19-JUL-83 17:12 TION TABLE AND ROUTI 


030402 01 006462 MOV #1, TXMTOT CLEAR TRANSMIT MESSAGE COUNT, CHAR. COUNT 
7 TTOTC 3 AND RESET POINTER 
#PTRTAB, TXPTR 


TXPTR, CPTR 
#TXBUF RI 
R1, TCURAD 
#BUFLIN, R2 
RI. CU 1. CURABD 
nsésc, tuRce 


SEQ 126 


3SET UP TO PUT DEFAULT MSG IN LIST AFTER 0335'S 
sFILL EXPT OR TRAN BUFFER WITH O°S IF A CLEAR 
3D0 "BUFLIM'' NUMBER OF BYTE LOCATIONS 


1$ 
PC ,BLDBUF 3""CLEAR’* REALLY MEANS TO PUT DEFAULT MSG IN 
PC WHEN DONE, RETURN TO PARSER 


#SHTAB,RS 

(R5)+,a(R1) sLOOK AT FIRST BYTE OF MSG TO DECIPHER TYPE 
ore 3SEE IF LOOKED AT ALL OF DEFAULTS YET 
sMUST BE OPR. SPEC’D THEN 


SISVSARANASSELEGFARAS 


co 
—_ 


ReSesNn 


eS 
#SHTAB+1 RS 
BS 


tS 


2(R1), TEMP 

#SHMSG,SHTYTB(RS) ,TEMP ;PRINT MSG SIZE & TYPE 
TEMP ,-(SP) 
SHTYTB(RS) .-(SP) 
#SHMSG,- 
#3,-(SP) 
PRO 


ooooo oO 
pear Sor Pear er rs 


at 
zg 
= 


Cc F 
#10,SP 


Re 


Beeyesss 


AD 
om sBUMP R1 TO NEXT SET OF POINTERS 


ed ee ed ceed ced ce ced ce ce ce cee cee ce cee ced ee ced a ce ee ce ce ee ceed ae ce ce ed ce cee ee ce eed ed ed eed eed eed ee 


BELEARLESLESELEALAT 


BNE ACT SH 
006570 MODTYP,DEV1 
006572 7 a A 
RPASS ,DEV 
006576 PARAM ,DEV4 
023714 SHWOP zSHOW THE OPERATOR THE CURRENT MODE..... ALSO 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5. 


oooo 
2 = 
WIN 


3 SETUP ete ADDRESS FOR DUMP 
SET DEFAULT OF WORD DUMP 
FLAG THAT A DUMP WAS TYPED 


#-1,BYTBIT 3SET DUMP FLAG TO "DUMP-WORD*’ 
P$NUM, ENADD ;SETUP END ADDRESS 474 het (=START IF NO “EEE* 
4; CLEAR NOT-ENOUGH FLAG, ‘DUMP N-N/B’* IS VALID 
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CZDCLB _DUP=11 DATA COMM. LINK MACY11 ahh ae 20-JUL-83 13:19 PAGE 128 
CZDCLB.P11 19=JUL=83 1 i7: 12 ON TABLE AND ROUTINES 


SEQ 127 


000010 ACTSTE: #SETEXP ,KEYWD1 
BR ACTSTX 


000011 ACTSTT: #SETTRN, KEYWD1 
000001 ACTSTX: MOV + enact 3SET UP DEFAULT COPY TO 1 (/COPY=0) 


000012 ACTSZE: MOV Hy ZE ,QUALFG 
000013 ACTCOP: a G 


003012 ACTNUM: QUALFG,#SIZE sSEE IF A os ae COPY TYPED 
BNE 1$ 7BR IF IT WAS A COPY 
003142 PSNUM CHECK y SURE DIDN'T TRY SIZE=0 


3$ : 

#CLISEO 
012072 MOV #CLISEO 
000001 MOV #1,-(SP) 
MOV SP,RO 
TRAP CSPNTF 
ADD #4,SP 


=(SP) 


000004 
177777 + 003147 #-1,PS$GDBD 3SEE ERROR-IN-CMD FLAG 


BR 
003142 006520 : = 3IF A SIZE LOAD CURCC WITH BYTE COUNT 


003142 003014 : MOV 31F A COPY, LOAD COPY COUNT 
003014 a s INCREMENT SO FIRST DEC MAKES IT REAL # 


7 006516 
Hef TRACK OF START OF QUOTED TEXT 
SO CAN CALC OPCNT AT END OF QUOTES 


3CALC BYTE COUNT FOR QUOTED TEXT 


#OPBUF , 
anata sCOPY QUOTED TEXT TO OPBUF 


1$ 
ACTMEX 


ACTBCR: PRINTF #CLIBCR ;BAD CHAR. IN OPR. QUOTED STRING 
012025 MOV #CLIBCR,-(SP) 
000001 #1,-(SP5 


oS oooo 
WW WIN 


ooooo 


MOV 
TRAP 
000004 ADD 





CZDCLB_DUP-11 DATA COMM. LINK 
CZDCLB.P11 19-JUL=83 17:1 


000207 
005037 


>] 
o 


000001 
? 023510 
000060 


031304 105037 003146 
031310 000207 


L 10 


MACY11 Spat Ieee tet Re rhe ys PAGE 129 


ACTMSO: 
ACTMS1: 
ACTMS2: 
ACTMS3: 
ACTMS4: 


ACTMSS: 
MO 


BR 
ACTMS6: 
MO 


ACTME1: 
BR 


ACTSEX: CMP 
} 


10$: 


ON TABLE AND 
PC 
MSGTYP 


YP 
MSG5C, CURCC 
ACTNEX 
mséee CURCC 
#64. ,CURCC 
ACTMEX 


#SETEXP ,KEYWD1 
#1,PSGDBD 
ACTMEX 

PC FACSIMILE 


#SETET .KEYUD1 
ACTMEX 


PC 


3SET MESSAGE TYPE = ALL ONES 
3SET MESSAGE TYPE = ONES & ZEROS 
3SET MESSAGE TYPE = ZEROS & ONES 
3SET MESSAGE TYPE = CCITT 


sSET MESS TYPE = QUICK FOX 
7SETUP DEFAULT SIZE FOR THIS TYPE 


3SET MESSAGE TYPE = ALPHA/NUM 
;SETUP DEFAULT SIZE FOR THIS TYPE 


sSETUP DEFAULT SIZE FOR MSGO0-4 
sBRANCH TO EXIT 


:DID WE GET HERE FROM ‘SET E=""COMMAND? 
sWee-ton H 

sSET ERROR FLAG 

360 EXIT SUBROUTINE 

:GO COPY TRANSMIT List ny Erect LIST 


3SET FLAG TO BE USED 
EXIT SUBROUTINE 


CLEAR NOT-ENOUGH FLAG 
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CZDCLB DUP=11 DATA COMM. LINK MACY11 eereet 20-JUL-83 13: " PAGE 130 
ZDCLB.P11 19-JUL-83 17:12 ON TABLE AND ROUTINE 


$303 031312 012737 000003 ACTATV: #ACT MODTYP ;MODE = ACTIVE 
031320 000432 BR ACTMOX 


Bee | 


012737 000002 ACTPAS: MOV #PAS ,MODTYP sMODE = PASSIVE 
105037 C PSNNUF 3CLEAR NOT-ENOUGH FLAG 
a td 006572 C ed ;CLEAR MAINT LOOP TYPE 


005037 ACTREC: MODTYP sMODE = RECEIVE 
000417 BR ACTM2X 


031350 012737 ACTLIS: #L1S,MODTYP ;MODE = LISTEN 
031356 000413 ACTMOX 


031360 012737 ACTDLL: #D0W,MODTYP : = DOWNLINE LOAD 
031366 000407 BR ACTM2X 


031370 ACTTRA: #TRA,MODTYP : = TRANSMIT 
031376 0004 ACTM2X 


ACTTAL: #TAL ,MODTYP sMODE = TALK 
ACTM2X: BIC #ECHOB , PARAM sDISABLE /ECHO ~~ BUT PASSIVE MODE) 
PSNNUF CLEAR NOT-ENOUGH FLAG 


L 
037 C MLTYP 7CLEAR MAINT LOOP TYPE 
031424 PC 


Secs 


pete 
OuFwn—o 


NSSTe5 


teeta tee te tee tee te ete 
wn 


5325 
5326 
5327 
5328 
5329 
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CZDCLB DUP=11 DATA COMM. LINK MACY11 30A(1052) 20-JUL-83 13:19 PAGE 131 
CZ0CLB.P11 19-JUL=83 17:12 ACTION TABLE AND ROUTINES 


031426 012737 000036 ACTNO: 54 ~ Joepemaimate 


wi 
a3 
= 


ate: 


000036 ACTECH: ~ : ereataatin 


000004 #ECHOB , PARAM 
000002 MP #PAS ,MODTYP ; IN PASSIVE MODE IF 
; NG TO SET /ECHO 
#CLINPS 


WWW 
ae 
w 


ESSE BESS 


011762 MOV #CLINPS,-(SP) 
000001 MOV #1, -(SP5 
MOV : 
TRAP  CSPNTF 
000004 ADD ~SP 
177777 MOV = #=1, P$GDBD 

000004 006576 1$: #ECHOB, PARAM 
0315 003012 2$: QUALFG 
031524 BR ACTLXX 


031526 000002 ACTCHK: #DATCKB,R1 sSET DATA CHECK BIT 
031532 000413 BR ACTOFG 


031534 000001 ACTSTS: #STATB,R1 zSET THE STATUS BIT 
031540 10 BR ACTOQFG 


031542 000020 ACTCRC: #CRCB,R1 3SET THE CRC BIT 
031546 000405 ACTOFG 


031550 000010 ACTMOS : #MOCHK .R1 zSET THE MODEM BIT 
031554 2 BR ACTOFG 


000040 ACTPRO: #PROTOB,R1 SET THE PROTOCOL BIT 
006576 ACTQFG: 
000036 


sCLEAR ‘NO’ OUT OF QUALIFIER FLAG 


rarer ag aa 


SAruN— 


pees ttf vee vette feted eee 


WWAWIWIWG 


WA 
win 
oon 


5 
5 
5 
5 
5 
5 
5 
5 


sisi 


SESSETESE 


006576 
003012 1$: sCLEAR ‘NO’ OUT OF QUALIFIER FLAG 
BR ACTLXX 


003142 006600 ACTRPS: PSNUM,RPASS 3GET NUMBER OF “RUN PASSES*’ 
BR ACTLXX 


000005 006572 ACTMOP: - #5 .MLTYP 

000001 006572 ACTTLP: 

000002 006572 ACTCLP: 

000003 006572 ACTLLP: = 

000004 006572 ACTRLP: 

090003 006570 ACTLPX: #ACT MODTYP 3BE SURE IN ACTIVE IF TRYING TO SET LOOP 
ACTLXX ; BR IF IN ACTIVE 

177777 + 003147 #-1,P$GDBD 


S 
So 


hy bag it tt bt hy 
N 
= 


_ 
NVM~N NWN 


la=— 


031676 
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CZDCLB DUP=11 DATA COMM. LINK TEST MACY11 eee 20-JUL-83 ia ys PAGE 132 
CZ0CLB.P11 19-JUL-83 17:12 ON TABLE AND ROUTI 


SEQ 131 


005037 006572 CLR MLTY sCLEAR ANY LOOP TYPE THAT MAY HAVE GOT SET 

PRINTF SCL IBDL 
012746 011720 #CLIBDL,-(SP) 
012746 000001 #1,-(SP) 
10600 MOV 


0 

104417 

958708 000004 

10503 ACTLXX: CLRB PSNNUF 3CLEAR NOT-ENOUGH FLAG 
000207 RTS PC 
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LEMK TEST MACY11 rath 20-JUL-83 1a g PAGE 133 


CZDCLB_DUP-11 DATA cor 
-83 ON TABLE AND ROUTI 


CZDCLB.P11. =: 19=JUL=83 17: 
a 006572 : Ist ' IVP LOOP pAMODE 3 ? 
398 000002 #DATCKB, PARAM SDaTA. CHECK 7 


006446 CMP CMPTOT , TXMTOT E 
YES, BRANCH 


BEQ 
PRINTF #CLIPW [PRINT WARNING 
012746 012123 #cLIPW.~(SP) 
1 746 000001 MOV fi. =(SP) 
104617 cséuTr 


106 000004 
00013 JMP GETCL zTRY AGAIN 


S588 


RX meer CODE 

032010 012737 H hov PTRT. R INIT TRANSMIT MESSAGE POINTER 
032016 012737 MOV sINIT COMPARE MESSAGE POINTER 
032024 012737 006 #PTR23,RXPTR INIT RECEIVE MESSAGE POINTER 


CMPTOT,RXMTOT ;MAKE COMPARE AND RX MESSAGE COUNTS EQUAL 


eeeeecses 
WDONAULWN—O& 


at 


sCLEAR FLAG 
7CLEAR OPTIONAL VARIABLE COUNTER 
sCLEAR PASS COUNT 
CLEAR ERROR COUNT 
CLEAR GLITCH COUNT 
sCLEAR HARD ERR. cous 
CLEAR LINE COUNTER 
SET UP SYNCW FOR 226 SYNC +TSOM 
RX SYNC=226 


1$ cIF NON ITEP GO TO 1 

#8117 ,DUPPAR SET UP FOR 26 SYNC WORD ON RX. 
#426, SYNCW ELSE SET _UP SYNC_FOR 26 AND TSOM 
PC,LOGDVI ABOUT TO INIT DEVICE 


Sessscss 
BRR 
wNESS 


33 


SSSSSs 
O22 

w 
NVVVYANNNNN NN 


gs 


LOGDV 
PC. DVINIT 
#BUFLIM, CURCC 
#RXBUF , CURADD 
RXPTR,CPTR 
#10 MSGTYP 

C,BLDBUF 
MOBTYP Re 


R 
@MODE (R2) 


3LOG 
INIT DEVICE 


3SET CHAR COUNT TO ‘BUFLIM’’ NO. OF BYTES 
7SET UP RX BUFFER AS CURRRENT ADD. 


3SET UP a Fe 3. fo FILL RX BUFFERS 
CLEAR RX BUF 


sMODE DISPATCH 





CZDCLB DUP=11 DATA COMM. LINK TEST 


CZ0CLB.P11 


Sau 


549 


pgererssusueuranes 
EYRSSS 


19-JUL=83 17:12 


013737 
013737 


Dd 11 


MACY11 30A(1052) gs ee 13:19 PAGE 134 
RECEIVE MODE S 


eSBTTL RECEIVE MODE SECTION 


“FUNCTIONAL DESCRIPTION: 
RECEIVE-ONLY (OR ONE-WAY-IN) ROUTINE 
IN THIS MODE OF TESTING THE DEVICE'S RECEIVER IS re IN EXPECTATION 
OF yh Te A_MESSAGE. AFTER RECEIVING AN ‘EXPECT ( 
MESSAGES, THE DATA RECEIVED CAN BE COMPARED AGAINST A LIST OF “EXPECT 
TO RECEIVE MESSAGES IF DATA-CHECKING IS ENABLED. 


SUBORDINATE ROUTINES, USED: 
"ALLTR 


i 5 SEQUENCE : 
@MODE (R2) sDISPATCH TO MODE BASED ON MODE TYPE IN R2 


RXONLY : 


an 


RXPTR, sCPTRR 

RXMTOT,DVRCT § ;SET UP MESSAGE COUNT 
ORK OHERK, FLAG :SET UP RX 

CPTR [CLEAR THE TX POINTER 
ALLTR 760 RX. 


SEQ 133 





CZ0CLB s ATA COMM. 


CZ0CLB.P11 


032272 
032276 


JUL=83 17: 


LINK TEST 


E11 


MACY11 SPA TO5et as | 13:19 PAGE 135 
ANSMIT MODE S:C 


-SBTTL TRANSMIT MODE SECTION 


;++ 

; FUNCTIONAL DESCRIPTION: 
; TRANSMI Y (OR ONE-WAY-OUT) ROUTINE 
IN THIS -. TESTING A LIST OF MESSAG 
EXPECTING ANY DATA TO BE RECEIVED. A ¢ 


F $ TRANSMITTED WITHOUT 
: ON COUNT CAN BE 
; SPECIFIED TO REPETITIVELY TRANSMIT THE 


I 
ITl 


ES 
PET 
IS 


T 
; SUBORDINATE ROUTINES USED: 
; ““ALLTR"* 


; ; CALLING, § SEQUENCE : 
@MODE (R2) sDISPATCH TO MODE BASED ON MODE TYPE IN R2 


TXONLY: 3SET NOCHECK 
: MOV 


TXON2 
DVTCT —_;COPY_COUNTER for THIS PASS 
WOTX*METX, FLAG :SET THE QUE TX FLAG 
CPTRR SCLEAR RX Ye INTER 
ALLTR 760 TX. 
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CZDCLB_DUP=-11 DATA COMM. LINK TEST MACY11 30A(1052) gs te 13:19 PAGE 136 
CZDCL8.P11 19-JUL-83 17:12 PASSIVE MODE SECTION 


~SBTTL PASSIVE MODE SECTION 


SEQ 135 


; FUNCTIONAL DESCRIPTION: 

; PASSIVE MODE SECTION 

IN THIS MODE OF THE peyice® S_RECEIVER IS ENABLED IN 
CTATION OF A MESSAGE. THEN EVERY TIME A MESSAGE IS 

RECEIVED, A_MESSAGE RANSMITTED. DATA CHECKING CAN BE DUNE ON 7 

RECEIVED DATA. 


; SUBORDINATE ROUTINES USED: 
*“ALLTR®® 


; seenae SEQUENCE : 
; @MODE (R2) zDISPATCH TO MODE BASED ON MODE TYPE IN R2 


eeey 
33 2 


PTAA 


PLCK: 
013737 006460 PLCK2: MOV TXMTOT ,DVTCT 3SET UP THE TRANSMIT COUNT 
013737 MOV TXPTR,CPTR 3SET UP CPTR TO TRANSMIT POINTER 
013737 PLCK3: MOV RXPTR, CPTRR 3SET UP CPTRR TO REC POINTER 
052737 0001 006602 BIS #ORX+HERK, FLAG ;SET UP Q AND EXPECT RX 
032332 000137 JMP ALLTR SAND GO RX FIRST MSG. 
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CZDCLB DUP=11 DATA COMM. LINK TEST MACY11 gt gona ee 13:19 PAGE 137 
Z0CLB.P11 19-JUL-83 17:12 TIVE MODE SECTION 


~SBTTL ACTIVE MODE SECTION 


* 
estan < DESCRIPTION: 
ACTIVE MODE SECTION 
IN THIS a OF TESTING A LIST OF MESSAGES IS TRANSMITTED AND 
MESSAGES ARE EXPECTED TO BE RECEIVED. RECEIVED DATA CAN BE COMPARED 
AGAINST EXPECTED" DATA IF DATA-CHECKING IS ENABLED. 
: IF BOTH ENDS OF THE LINK ARE IN ACTIVE MODE, THEN THE 
LINK MUST BE A FULL DUPLEX LINK! 


SUBORDINATE ROUTINES USED: 
“ALLTR"’ 


CALLING SEQUENCE: 
JMP @MODE (R2) 3DISPATCH TO MODE BASED ON MODE TYPE IN R2 


Be Ge Se Ge Se Ge Se Ge Ge Se Ge Se Be Se Se Se 
+ 


ALCK: TXMTOT ,DOVTCT 34 OF MESSAGES TO yrpar: bs TX COUNT) 
SSETUP TX MESSAGE LIST POIN 

VRC 3@ OF MESSAGES TO RECEIVE (DEVICE RX COUNT) 

potone -CPTRR ;SETUP RX MESSAGE LIST POINTER 

ALLTR 


TX##ETX+MERX FLAG 
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SEQ 137 
CZDCLB DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) _20-JUL~83_13:19 PAGE 138 
CZDCLB.P11 =: 19=JUL-83 17:12 = RECEIVE FOR ALL STANDARD MODES 
$546 .SBTTL TRANSMIT = RECEIVE FOR ALL STANDARD MODES 
2546 i+ 
554 ; FUNCTIONAL DESCRIPTION: 
5548 : THIS CODE PERFORMS THE FOLLOWING FUNCTIONS 
5549 : 1.) IF RX BUFFERS ARE TO BE QUED,TELL DEVICE 
5550 : Looe TO QUE THEM ,LOG RECEIVE QUED. 
5551 3 2.) IF TX BUFFERS ARE TO BE QUED , TELL DEVICE 
355¢ ; CODE TO QUE FHER LOG T QUED. 
3393 ; 3.) WAIT FOR EITHER RECIVE BUFFER OR TRANSMIT BUFFER OR 
5555 : 4.) IF RECEIVE COMPLETE LOG IT UPDATE RX TABLE IF DATA 
5556 ; HECK ING. 
5557 ; 5.) IF TRANSMIT COMPLETE LOG IT. 
5558 ; 6.) WHEN BOTH TRANSMIT AND RECIEVE LISTS ARE DONE 
2359 : GO TO THE COMPARE BUFFER CODE 
5561 t SUBORDINATE ROUTINES. USED: 
5562 : “DVRXQ"" =QUE RECEIVE BUFFER SPACE TO DEVICE 
5563 : LOGRXQ"=LOG RECEIVE BUFFER SPACE TO EVENT LOG 
5564 3 “LOGTXQ''=LOG TRANSMIT BUFFER QUED TO EVENT LOG 
5565 ; ‘DVTXRX'=QUE TRANSMIT BUFFER AND WAIT FOR RX 
5566 : : ,, OR TX TO COMPLETE 
5567 : “LOGRXC''=LOG RECEIVE BUFFER COMPLETED TO EVENT LOG 
3368 3 ‘LOGTXC’=LOG TRANSMIT BUFFER COMPLETED TO EVENT LOG 
5570 : USE OF FLAG BITS: 
5571 : QRX = SET ON INPUT TO ALLTR IF REC IS TO BE OUED TO 
257 : DEVICE. CLEARED BY DVRXQ AND THEN SET BY DVTXRX 
557 : WHEN RX BUFFER IS COMPLET 
5574 : QTX = SET ON INPUT TO ALLTR IF TRANSMIT IS TO BE QUED T 
5575 : DEVICE. CLEARED ON ENTRY TO DVTXRX AND SET BY BVTRRX 
5576 : WHEN TX BUFFER IS COMPLETED. 
2307 ; ETX = USED ey DVTXRX TO DETERMINE IF TX BUFFER COMPLETED IS 
5579 ; ERX = USED BY DVTXRX TO DETERMINE IF RX BUFFER COMPLETED IS 
5580 > EXPECTED. 
5581 3 
5582 3 
5583 t CALLING SEQUENCE: 
3584 ; JMP ALLTR 360 TO TRANSMIT-RECEIVE FOR ALL STANDARD MODES 
5586 
5587 
5588 032400 ALLTR: 
5589 032400 032737 000004 006602 ALCKS: BIT #ORX.FLAG 3QUE_RX ADDRESS & COUNT? (ARE WE RECEIVING?) 
5590 032406 001424 BEQ ALCKi 
5591 032410 013702 006522 MOV CPTRR,R2 Get CURRENT RX MESSAGE LIST POINTER(POINTS 
2598 X MESSAGE LIST POINTER T 
5593 032414 011237 006540 MOV (R2), TEMP2 28, AVE RX ADDRESS FOR LOG 
5594 0324 012037 906470 MOV (R2)+,DVRXA DEVICE Xo ADDRESS 
5595 032424 011237 542 MOV (R2), TEMPS RX CHAR COUNT FOR LOG 
5596 032430 011237 00647¢ MOV (R2) .DVRCC *DEVICE RX CHARACTER COUNT 
5597 032434 010237 0065 MOV R2,CPTRR SSTORE UPDATED RX POINTER 
5598 032440 004737 0201 JSR PC. LOGRXQ £106 RECEIVER, ,QUED 
5599 032737 000040 006576 10$: BIT #PROTOB, PARAM /PROTOCOL 


111 


CZDCLB DUP-11 DATA COMM MACY11 30A(1052) 20-JUL-83 13:19 PAGE 139 
CZDCLB.P11 19=JUL=83 TRANSMIT = RECEIVE FOR ALL STANDARD MODES 


001008 BNE ALCK1 3 YES,BRANCH 
PC ,DVRXQ 3G0 QUE RX BUFFERS & ENABLE RECEIVER 


ays FLAG sARE WE TRANSMITTING ? 


CPTR,R2 SCURRENT TRANSMIT MESSAGE LIST POINTER 
(R2). TEMP2 3SA VE ADDRESS FOR LOG 

(R2)+,DVTXA [TRANSMIT BUFFER ADDRESS 

(Re) TEMPS SSAVE CHAR COUNT FOR LOG 

(R2)+,DVTCC S TRANSMIT CHAR COUNT 

R2,CPTR [SAVE UPDATED POINTER 

PC.LOGTXQ [LOG TX QUE 


#PROTOB,PARAM =; 3° /PROTOCOL "7 


/BRANCH 
PC PROTOC ?60°DO DDCMP PROTOCOL PROCESSING 
#ABORT PAR :PROTOCOL ABORT 


3NO,BRANCH 
GTRAS ZABORT!! AND RETURN TO ‘DCLT >* PROMPT 


PC ,DVTXRX z1F TRANSMITTING QUE TX BUFFERS & ENABLE TX 
sWAIT FOR TX/RX_ COMPLETE 
WORK FLAG *RECEIVED MESSAGE ? 


;NO,BRANCH 
DVRXA, TEMP2 RX BUFFER ADDRESS 
DVRCC, TEMPS 3RX_ CHAR COUNT 
PC, LOGRXC LOG REC COMPLET 


SEeSeEEees | 
eson9ee 


par por Por rer 
ON w x 


Srna nN NTN 
Beak hoccooeoes 
33a $ 
P| IS 


‘ ETE 
21S THIS ECHO Salamis 


SELSE SET . TO PRESENT TX TABL 
sSTORE OFF RX ADD 

sAND CC 

31S DATA CHECKING ASKED FOR 

sI1F SO GO T 

sELSE SET DVRCT TO A 1 

sRESET POINTER 

31S THIS ACTIVE 


IF YES BUMP COUNT 

LOAD TEMP WITH PREV. COUNT 

LOAD TEMP WITH PREV.COUNT-CURRENT 

sSTORE OF NEW ADD 

[PUT POINTER BACK TO ADDR. 
R2,CPTRR AND RESTORE IT. 


#PAS ,MODTYP 

ALCK2A z1F NOT PASSIVE LOOP THEN GO TO 2A 
WORX+HERX,FLAG CLEAR BOTH EXPECTED AND COMPLETED FLAGS 
WOTX+METX,FLAG ;SET THE TX FLAGS 





CZDCLB_ DUP=11 DATA COMM. LINK 
CZDCLB8.P11 19-JUL=83 17:12 


74 


032524 


J11 


MACY11 SOACI05¢) _20<JUL=83 13:19 PAGE 140 
TRANSMIT = RECEIVE FOR ALL STANDARD MODES 


ALCK2A: 


ALCK3A: 


ALCK3C: 
ALCK38: 


ALCK4: 


ALCK4A: 


ALCK4B: 


ALCK1 


DVRCT 
DVRCT 


ALCKS 
#QRX FLAG 
CPT 
#QTX,FLAG 


ALCK 

DVTXA, TEMP 
DVTCC, TEMP 
PC ,LOGTXC 


OPAS-MODTYP 
ALCKSA 
#OTX*ETX FLAG 
#ORX+ERX FLAG 
DVTCT 


Cc 

#QTX FLAG 
#DATCKB, PARAM 
ALCK4A 


sDEC REC a 
31S IT AL 
go-¢ cH HECK ™ 

CL LEAR THE RX FLAG 

sYES. es POINTER 
SIF NOT TX THEN GO BACK 
3LOG TX COMPLETED 
sDEC TX COUNT 
31F NOT ee A — GO TO 3A 
sCLEAR THE TX F 

AND SET THE RX FLAGS 

IF MORE RX°S DO IT 

3 ELSE COMPARE 

71S IT ALL DONE 
31F NOT GO BACK TO 5 
zIF SO arn POINTER 
;CLEAR TX FLAG 
si3 IT AT CK 
31F NOT THEN END WO CKING RX. 
sIF SOME RX''S LEFT GO BACK 


sBRANCH IF ANY TX°S LEFT 
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SEQ 140 
CZDCLB DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL=B3 13:19 PAGE 141 
CZDCLB.P11 =: 19=JUL-83 17:12 COMPARISON C 
5693 .SBTTL DATA COMPARISON CODE 
5694 
5695 
5696 r+4 
2697 + FUNCTIONAL DESCRIPTION: 
5699 : CMPSR = COMPARE CODE 
5700 : THIS CODE COMPARES THE RECEIVED DATA AGAINST THE 
2701 : EXPECTED AND FILLS THE EVENT LOG WITH 1 OF 3 MSGS. 
2208 ; NOTE: IF NO DATA CHECKING SKIP THIS CODE 
5705 : 1.) A DATA COMPARISON ENTRY WHICH REPORTS THE NUMBER 
5706 ; F COMPARISON ERRORS 
5707 : 2.) A DATA COMPARISON ENTRY WHICH REPORTS DIFFERENCES 
5708 : N REC LENGTH TO COMPARE LENGTH. 
5709 : 3.) A DATA COMPARISON STARTED ENTRY WHICH REPORTS ADDRESS 
5710 : OF RECEIVE BUFFER. AND BYTE COUNT. 
5711 : HIS CODE ALSO R S SOFT ERRORS FOR DATA COMPARISON 
arte : We FIRST ONY) LENGTH ERROR,AND TOTAL NUMBER OF ERRORS 
5714 : 
3215 : SUBORDINATE ROUTINES USED: 
5717 : “LOGCMP’' = SEE ITEM 3 ABOVE 
5718 ; “LOGCML'' = SEE ITEM 2 ABOVE 
art ; ‘LOGCMD'’ = SEE ITEM 1 ABOVE 
5721 + CALLING SEQUENCE: 
3722 ; JMP CMPSR ; JUMP TO DATA COMPARISON CODE 
5724 , 
5725 033166 032737 000002 006576 CMPSR: BIT #DATCKB,PARAM 1S DATA CHECKING TO BE DONE 
5726 033174 001522 BEQ CMPSEX TIF NOT THEN EXIT 
5727 033176 013737 006440 006524 MOV RXPTR,CPTR ZPUT START OF RX POINTERS TO CPTR 
5728 03 013737 006444 006522 MOV CMPPTR,CPTRR §: AND START OF COMPARE POINTS TO CPTRR 
3729 033212 013737 006476 006474 MOV RXMTOT.DVRCT 
5731 033220 CMPS3: 
5732 033220 013702 006524 MOV CPTR,R2 :MOVE CURRET RX PT. r0 R2 
5733 033224 011237 006540 MOV thoy. *TEMP2 [MOVE RX ADD TO EVENT LOG 
5734 033230 012201 MOV (R2)+,R1 [SET R1 TO START ADO OF RX 
5735 033232 012237 006542 MOV (R2)+, REMP3 [SET CHAR COUNT TO EVENT LOG 
3736 033236 010237 006524 MOV R2,CPTR SRESTORE RX POINT 
5738 033242 013702 006522 MOV CPTRR,R sPUT R2 AT COMPARE TABLE 
5739 033246 012203 MOV (R2)+.R [SET R3 TO COMPARE ADD 
5740 033250 012204 MOV (R2)+_R& [SET R4 TO COMP CC 
5741 033252 010237 006522 MOV R2,CPTRR SRESTORE POINTER 
5742 033256 010437 00654 MOV R4.TE 
2743 33262 004737 $96 206 JSR PC; LOGCMP sLOG COMPARE START. 
5745 033266 020437 006542 CMP RG TEMPS z1S COMPARE COUNT = TO RX COUNT 
5746 033272 001410 BEQ CMPS :1F $0 GO TO 
5747 033274 005237 006506 INC ERRCNT 
5748 033300 ERRSOFT 1,EDDLE.ERR10 ;PRINT ERROR 


L 11 


CZDCLB DUP=-11 DATA COMM. LINK TEST MACY11 itis Y pe ge 2 13:19 PAGE 142 
CZDCLB.P11 19-JUL=83 17:12 A COMPARISON C 


033306 
033310 004737 020264 PC .LOGCML 3LOG LENGTH ERROR 


033314 006544 : TEMPS :CLEAR BAD BYTE COUNTER 

000001 006532 MOV #1,0FSET :SET OFSET BYTE COUNT TO 1 
(R1)+, (R3)+ [COMPARE RX WITH EXPETED 
CMPS6 :IF EQUAL THEN GO TO 6 
006544 : TEMPS :INC BAD COUNT 
006544 000005 MP t1S IT MORE THEN 5 

CMPS6 TIF SO GO FOR MORE 

006554 [STORE GOOD BYTE FOR ERROR 
006555 [STORE BAD BYTE FOR ERROR 


006506 
sREPORT COMPARISON FAILURE TO OPR. 
TRAP 
WORD 
WORD 


3 INC_OFFSET 

ELSE DEC CHAR COUNT AND SEE IF 0 
IF NOT GO BACK 

3SEE IF ANY CMP ERRS FOR THIS MSG 
BR IF NONE 


RRCNT 
S EDDDE oERR2 sREPORT # OF MISMATCHES FOR a. 


WORD 

- WORD 

- WORD 
PC ,,LOGCMD 3LOG DATA ERROR IN COMPARE 


DVRCT 
CMPS3 :IF NOT ALL DONE GO BACK 


60 
62 
64 
66 
7 

5770 

77 
773 

77 
7 
779 
5781 
5782 
5783 
5784 
5785 
5786 
5787 
5788 
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SEQ 142 
CZDCLB_DUP=11 DATA COMM. LINK TEST MACY11 de sgh 13:19 PAGE 143 
CZ0CLB.P11 19-JUL-83 17:12 CHANGE REPORTS C 


-SBTTL MODEM CHANGE REPORTS 


"FUNCTIONAL fact lad Le 


HE NUMBER OF a STATUS _“HANGES 


Ss TO LATCH UP THE BAD EM STAT ¥. 

WHEN THE MODEM STATUS CHANGES TO CAUSE A E 
INTERRUPT BUT THE CHANGE DOES NOT OCCUR LONG ENOUGH F 
THE DEVICE TO LATCH THE DATA 


= CONTAINS NUMBER OF GLITCH ERRORS 
= CONTAINS NUMBER OF HARD ERRORS 


“ZEROED BY THIS SECTION 
“ZEROED BY THIS SECTION 


011516 CMPSEX: TST MGLCNT sCHECK FOR ANY saree ERRORS 
BNE MCREP IF NON ZERO REPORT THEM 

011520 TST MHRCNT [CHECK FOR ANY HARD ERRORS 
BEQ ENDPS IF NONE GO TO END OF PASS 


;REPORT ANY MODEM ERRORS HERE 


INC ___ERRCNT BUMP ERROR COUNT 
ERRSOFT 4,MSCMSERR4 
CSERSOFT 


4 
MSCMS 
ERR4 

CLR MGLCNT sCLEAR GLITCH COUNT 

CLR MHRCNT CLEAR THE HARD COUNT 
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CZDCLB DUP=11 DATA COMM. LINK TEST MACY11 ag ehh ca 20-JUL-83 13:19 PAGE 144 
CZDCLB.P11 19=JUL=83 17:12 RNAL END OF PASS CODE 


-SBTTL INTERNAL END OF PASS CODE 


"FUNCTIONAL DESCRIPTION: 
THIS CODE INCREMENTS THE PASS COUNT FOR THE 
T LOG,, LOGS THE END OF PASS EVENT 
"RPASS’' IS A MINUS ONE RETURN TO MODE 
DISPATCHER. IF NOT =1 THEN DECREMENT RPASS 
AND IF "RPASS'' IS THEN = TO 0 GO TO DCLT PROMT 
IN NOT = TO 0 THEN GO BACK TO MODE DISPATCHER 


SUBORDINATE ROUTINES USED: 
“LOGEOP’’ = LOG END OF PASS TO EVENT LOG 


Be Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge er 


033502 006504 : sBUMP PASS COUNT 


006502 OPVAR, TEMP: 

006504 PSCNT TEMPS 

006506 MO ERRCNT, TEMPS 

020320 PC ,LOGEOP :LOG END OF PASS 


177777 MP oe oRPASS 1 IF RPASS=-1 
006600 ae DEC P 


oe ba & DON'T DECRMNT, LOOP FOREVER 
S_COUNT 


IF DONE EXIT TEST 
032142 : MP GTRX2 ELSE GO BACK m7 | DISPATCH 
000120 : #RINTEN! RXENA, @RXCSR z TURN OFF RX : 
GTRAS WHEN RPASS=0 GO BACK TO “DCLT>** 
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SEQ 144 
CZDCLB_DUP-11 DATA COMM. LINK TEST MACY11 rT eee - 19 PAGE 145 | 
CZDCLB.P11 19-JUL=83 17:12 OWN-LINE-LOAD SECT C. 


-SBTTL DOWN-LINE-LOAD SECTION 
568 


5864 3 * FUNCTIONAL DESCRIPTION: 

5865 3 D IS NOT SUPPORTED BY THIS DEVICE.. 

5 ; IF THIS MODE IS CALLED ey THE COMMAND LINE INTERPRETER 

586 ; THEN A MESSAGE WILL BE PRINTED Hat SAYS DOWN LINE 

ogee : LOAD IS NOT!! SUPPORTED BY THIS DEVICE. 

5870 

5871 

5872 

5873 033570 DLL: 

5874 033570 PRINTF #DLLCM 

5875 033570 012746 014130 MOV #OLLCM,-(SP) 
5876 033574 012746 000001 MOV #1,-(SP) 
5877 03 01 P 
5878 033602 104417 TRAP CSPNTF 
5879 03 062706 000004 . ADD #4 ,SP 
5880 033610 000137 026644 JMP GTRAS 
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CZDCLB_DUP=11 DATA or LINK TEST MACY11 30A(1052) coed 85 13:19 PAGE 146 
CZ0CLB.P11 19=JUL-83 17:12 TALK MODE SECTION 


-SBTTL TALK MODE SECTION 


SEQ 145 


* FUNCTIONAL DESCRIPTION: 
TALK Bg B. 


pel ice 
IN THIS E ‘*TALK’’ END OF THE LINK TRANSMITS OPERATOR 
pete D MESSAGES UNTIL A ‘EXIT’ pit a 3 TYPE. AT THAT POINT, 
THIS END OF THE LINK GOES INTO ‘LISTEN’’ MOD 


SUBORDINATE ROUTINES USED: 


""LOGTXQ"' = LOG TX BUFFER QUED TO EVENT LOG 
*“DVTXRX"* = GUE TX BUFFER TO DEVICE AND WAIT FOR COMPLETE 
DOGTNC" - LOG TX COMPLETE TO EVENT LOG 


Loe 5 SEQUENCE: 
@MODE (R2) sDISPATCH TO MODE BASED ON MODE TYPE IN R2 


TALCK: 
yang PARAM ;SET NOCHECK 


MOV 
1$: #1 USNs sCLEAR OUT OPBUFFER FIRST 
#OPEND ,R2 


1 
OPRMM , OPBUF A.71,1,72. 2NO 3GET TALK cies 


10001$: 
sNOW GET CHAR COUNT 


R2 
#377 ,OPBUF (R2) 
3$ 


3SET UP TX ADDR. 


OPCNT .DVTCC sSET UP TX CC 
033736 #OTX+HETX,FLAG :SET UP FLAGS 
30 033744 CPTRR ;CLEAR RX POINTER 


3; THIS CODE ADDED FOR PROTOCOL 
033750 BIT #PROTOB, PARAM —; */PROTOCOL *? 
03375 BNE 20$ YES, BRANCH 
JSR PC ,DVTXRX 
BR 25$ ; JUMP AROUND PROTOCOL 
208: BIC #RXO, FLAG *MAKE SURE NOT TO RECEIVE 
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CZDCLB DUP=-11 DATA COMM. LINK TEST MACY11 as gt 5 13:19 PAGE 147 
CZDCLB8.P11 19-JUL-83 17:12 K MODE SECT 


004737 040706 PROTOCOL 3D0 DDCMP PROTOCOL 


013737 006454 006540 258: DVTXA, TEMP 
013737 006456 006542 Mov VTC, TEMP 
737 020116 PC,LOGTX 
054105 002520 WEX,OPBUF ==; CHECK FOR EXIT 


BNE TALCK 
052111 002522 ce 4 ‘I i +2 
000210 006602 MQTX+HETX,FLAG ;CLEAR THE TX BITS 


900006 006570 MOV #L1S,MODTYP [CHANGE TO LISTEN MODE 
03214 GTRX2 :AND GO BACK TO DISPATCH 
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CZDCLB_DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83 13:19 PAGE 148 
CZDCLB.P11 19-JUL-83 17:12 LISTEN MODE SECTION 


~SBTTL LISTEN MODE SECTION 


SEQ 147 


+ 

FUNCTIONAL DESCRIPTION: 
LISTEN MODE SECTION 
IN THIS MOD LISTEN" END OF THE LINK PRINTS ALL OF THE MESSAGES 
RECEIVED BY THE He, Devi CE ON THE OPERATOR'S CONSOLE. IF THE, MESSAGE 

RECEIVED IS AN “EXIT” MESSAGE, THEN THE NODE ENTERS “‘TALK'’ MODE. 


SUBORDINATE ROUTINES USED: 


.,DVRXQ’’ = QUE RECEIVE BUFFER SPACE TO DEVICE 
“LOGRXG"’ = LOG RECEIVE BUFFER QUED TO EVENT LOG 
“DVTXAX® = WAIT FOR RX TO COMPLETE 

LOGRXC’ = LOG RX COMPLETE TO EVENT LOG 


ete: SEQUENCE: 
@MODE (R2) zDISPATCH TO MODE BASED ON MODE TYPE IN R2 


000002 LISCK: BIC #DATCKB, PARAM 2 CLEAR CHECK BIT 

PRINTF #LISP 3PRINT PROMPT FOR OPR. 
014054 #LISP,-(SP) 
000001 #1,-(SP) 


Be Ge Se Ge Se Se Be Se Se Ge Ge Se Ge Ge Ge Be Se 
+ 


SP, 
CSPNTF 
#4,SP 
3SET DEVICE UP TO REC AT OPBUF 
3SET UP CHAR COUNT TO 82. 


i ce P 
#QRX+HERX, FLAG ;SET UP_FLAG 
CPTR [CLEAR THE TX. 


SELECTED ? 
#PROTOB,PARAM ;°/PROTOCOL* ? 
20$ 3 YES,BRANCH 
7 035170 PC ,DVRXQ sQUE RX 

020134 PC ,LOGRXQ 

035272 tiene 3G0 TO DEVICE RX. SUBROUTINE 
PROTOC 3D0 DDCMP PROTOCOL 
DVRXA, TEMP2 
DVRCC, TEMPS 3SET UP ADDR.AND CC. 
PC, xc ;LOG COMPLETED 
DVRXA, DVRCC 

VRCE 


CLRB aD 
PRINTF #OPBFPT 
et ate 


000004 
054105 sCOMPARE FOR EX OF “EXIT'° 
LISCKA SIF NOT EXIT THEN GO BACK 
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CZDCLB DUP-11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83 13:19 PAGE 149 
CZDCLB.P11 19-JUL-83 17:12 LISTEN MODE SECTION 


034264 022737 052111 002522 CMP #"'1T ,OPBUF #2 31F FIRST HALF OK CHECK 8 ese PART 
7 03427 1 BNE LISCKA :1F NOT EXIT THE GO BACK 
tk 1 012737 000005 006570 MOV #TAL ,MODTYP 


E MODE TO TALK 
2 000137 032142 JMP GTRX2 <RETURN TO DISPATCHER 
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CZDCLB_DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83_ 13: L$ PAGE 150 
CZ0CL8.P11 19-JUL=83 17:12 DEVICE FUNCTION SUBROUTINE 


601 ~SBTTL DEVICE FUNCTION SUBROUTINES 


- SBTTL DEVICE INIT SUBROUTINE 


sseceece 


SOOONOUSE 


"FUNCTIONAL DESCRIPTION: 

DVINIT= DEVICE INIT ROUTINE 

THIS ROUTINE IS DEV VICE DEPENDENT CODE THAT INITS 

THE DEVICE BEING TEST 

IT SETS THE DEVICE UP TO THE MODE IT IS TO RUN IN AND 
INITIATES THE START STACK ACK SEQUENCE IF THE “RHODE (REMOTE 
NODE) INPUT INDICATES THE REMOTE NODE IS NON-ITE 


INPUTS: “FHDPLX’’ INDICATES IF MODE IS FULL OR HALF DUPLEX. (1=FULL) 
ADDRESS POINTERS (SELO,...) ALREADY POINT TO DEVICE'S REG.S 


*MLTYP** INDICATES THE LOOP TYPE (1=TTL, 2=CAB, 3=RM,4=LM) 
“RNODE’’ INDICATES THE TYPE OF REMOTE NODE (ITEP=1,NON-ITEP=0) 


SUBORDINATE ROUTINES USED: 
“CTSSR’* = CLEAR TO SEND SUB ROUTINE 
*DVIN31"° = SEND CONTROL AND REC OR TIME OUT 
“CLRRTS'* = CLEAR REQUEST TO SEND ROUTINE 
"“LGDVE’’ = LOG DEVICE ERROR TO EVENT LOG 


CALLING SEQUENCE: 
JSR 


UEWN— 


PC DVINIT 


DVINIT: 
DO MASTER CLEAR 
306 012777 000400 56s: MOV WRESET,@TXCSR 
000240 NOP 
000400 #RESET .ATXCSR 
155116 @RXCSR. TEMP 
TRAP  CSBRK 

sREPORT ERROR IF RESET 
DOES NOT WORK 


MOV #DVEMO, TEMP 
@RXCSR, TEMP 

@TXCSR, TEMPS ; G OUTPUTS 

<LODVE sk FOR RUN 


INC 
ERRSOFT gna DVEMO, ERR13 


ooooesco 
KESESES 


CSERSOFT 
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CZDCLB_DUP-11 DATA COMM. LINK MACY11 30A(1052)_ 20-JUL-83 13:19 PAGE 151 
CZ0CLB.P11 19-JUL=83 17:12 DEVICE INIT SUBROUTINE 


034374 WORD 
034376 WORD DVEMO 
WORD ERR13 

BR DVINIT 360 BACK AND TRY MSTR CLR AGAIN IF ERROR’ 
:SET TTL LOOP IF REQU'D 

006602 DVINI: BIC :CLEAR INPUT AND OUTPUT INT FLAGS 

155036 BIC aifLl orcse [CLEAR INTERNAL LOOP 

006572 CA att The MALTY 31$ TTL SELECTED 


;_ IF NOT GO TO 
155020 aie @TXCSR ELSE SET INTERNAL LOOP 


006572 : #CABLE ,MLTYP sCABLE LOOP ? 
10$ 3NO,BRANCH 
155000 —_ * SET EXTERNAL LOOP (TURN AROUND CONNECTOR) 


006570 : #D0W, MOD TYP :CHECK IF DLL 
BNE DVINSA SBRANCH IF NOT DLL 
DVINEX TELSE EXIT 


154746 : #0TR,@RXCSR sSET UP DTR. 


MO #2000 
: TST TIMER’ 
BNE 


TIMER1 
DVINS9 31F TIMER NOT OUT GO TO 39 
3SET ERROR FOR NO MODEM READY 
MOV #DVEMG, TEMP 
MOV @RXCSR, TEMP 
MOV @TXCSR, TEMPS 
JSR C ,LGDVE 
INC ERRCNT 
ERRSOFT 11,DVEM6,ERR13 


33 


BR DVIN3SA ; THEN TRY TO SET DTR AGAIN 
DVIN39: 


011474 MOV @RXCSR,IRXCSR ;GET COPY OF RXCSR 
011474 I #8179, IRXCSR 21S MODEM READY SET 


8 DV 
154642 DVIN37: MOV DUPPAR,@PARCSR ;SET ae REGISTER 
T RNODE REMOTE I i? 
DVINEX :YES. BRANCH 
FHDPLX L DUPLEX ? 
DVINEX 


D BRANC 
#PROTOB, PARAM ZNO BRANCH ? 
DVINEX YES BRANCH 


33 THIS START-STACK ROUTINE USED IN NON-PROTOCOL .NON-ITEP,FULL DUPLEX MODE 


SSONAARAN=SSSVEAR AWS 


AAAAAAAARAAAAAAAAAAAAAAOOS 
be ee ek a ed ed ed eh dd 


Moron 
Wwn— 
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CZDCLB_DUP-11 DATA COMM MACY11 30A(1052) 20-JUL-83 13:19 PAGE 152 
CZ0CLB.P11 19-JUL-83 DEVICE INIT SUBROUTINE 


>SET UP TO SEND STRT 
MOVE = #5, HDMSG+1 :SET up ENO 

:SET FLAG WORD 

[SET TIMER FOR 1 MINUTE 
3S S IF NESC. 


ODE 
60 TX STRT AND CHK FOR RX. 


zIF TIMER EXPIERED EXIT 


718 THE RCVD=STRT 

IF 4 GO TO ASTRT 

31S IT_A STACK 

IF NOT STACK ETIHER GO BACK 


C.CTSSR :SET REQUEST TO SEND 

mafX:PAD, FLAG :CLEAR TX COMPT FLAG. 
[SET UP ACK 

mag l MSGPTR :SET UP POINTER 


#8. SYNC :SET UP SYNC COUNT 
Asti TINTEN, ,@TXCSR ; TURN ON TX, ENABLE TX INTERRUPT 


sEXIT IF ACK SENT 


TRAP 


31F NOT TIMER EXPIRED TX. 
IF TIMER OUT REPORT IT 


sSET POTINTER TO STACK 
zAND GO SEND STACK 


sero ERROR IF TIME OUT 
21S ACK _RCVD? 

IF 30 EXIT 

21S IT 1 ae 

31F SO SEND A 

31F NEITHER SEND ANOTHER ACK 


“4 
n” 
—~ 


be 
awn 
~DzD 


oO@Dorw 
SRenee 


3D0 ERROR AND REPEAT 
: — #DVEMS , TEMP 
3LOAD_UP_ERRM. AND REG OUTPUTS 
We ERRENT 3LOG TIME OUT WAITING FOR RUN 
ERRSOFT 10. ,DVEMS,ERR13 
WORD 
-WORD 
INC OPVAR COUNT HOW MANY TIMES WE DO THIS. 
JMP DVINIT TRY ALL OVER AGAIN 
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CZDCLB DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83 13:19 PAGE 153 
CZPCLB.P11 19=JUL=83 73 12 DEVICE INIT SUBROUTINE 


035130 004737 03701 9 DVINEX: JSR CLRRTS iy re oe IF NESC 


SEQ 152 


035134 042737 173777 006602 BIC ateiiie FLAG = SCL AG WORD 
035142 052737 002000 BIS #INOVR, FLAG 7SET THE INITT over FLAG 


035150 000207 RTS PC RETURN TO CALL 





CZDCLB DUP=11 DATA C LINK TEST 
CZ0CLB.P1 att iz 1y 


035152 017737 154272 007556 
035160 042737 104761 007556 
000207 


035166 
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SEQ 153 
MACY11 30A(1052) 20-JUL-83 13:19 PAGE 154 
DEVICE GET MODEM STATUS SUBROUTINE C 


-SBTTL DEVICE GET MODEM STATUS SUBROUTINE 


: FUNCTIONAL DE.CRIPTION: 
*“DVMODS'* GET MODEM STATUS 


IMPLICIT INPUTS: 
: THE BIT POSITION AND AVAILABILITY OF THE MODEM SIGNALS CTS,DSR,...RI.. 
: FOUND IN THE DEPENDENT PORTION OF THE GLOBAL EQUATES SECTION. 


; ; OUTPUTS 
CURRENT MODEM SIGNAL VALUES IN ‘MODS"* 


; ; CALLING SEQUENCE : 
JSR PC .DVMODS 


DVMODS: MOV @RXCSR,MODS sREAD MODEM STATUS 


DVMEX: BIC #104761 ,MODS CLEAR BITS NOT RELATING TO MODEM 
RTS PC RETURN TO CALLER 
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CZDCLB_DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83_ 13:19 PAGE 155 
CZDCLB.P11 19-JUL=83 17:12 DEVICE QUEUE RECEIVE SPACE SUBROUTINE 


-SBTTL DEVICE QUEUE RECEIVE SPACE SUBROUTINE 
"FUNCTIONAL DESCRIPTION: 


= THIS SUBROUTINE QUEUES THE RECIEVER BUFFER SPACE TO THE 
DEVICE, THEN CLEARS THE QRX BIT OF THE FLAG WORD. 


OA) ed ed ed wed eed ed 
SCOOONOUS 


INPUTS: 

DVRXA = ADDRESS OF RX BUFFER SPACE 
DVRCC = BYTE CHAR COUNT OF RX BUFFER 
QRX FLAG BIT = SET BY CALLING ROUTINE 


OUTPUTS: 
QRX FLAG BIT = CLEARED BY ROUTINE 


CALLING SEQUENCE: 
JSR PC .DVRXQ 


ROGUE 


rrr 
—_ 


035170 


032737 000004 #ORX, FLAG sARE WE RECEIVING ? 
001434 VREX :NO,BR 
#ORX+ABCC+ARXM, FLAG [CLEAR FLAG FOR RX 
RNODE i ITEP MO MODE ? 


000444 
011522 


BEVBLGLVVOLVVVVVvwr 
BYSAEUN AS SeVO Rory 


DVRX2 :NO, BRANCH 

#RXM+ABCC FLAG ‘Get JUST THE DATA NO CRC. 

DVRXA, RMSGPT SRECEIVE DATA BUFFER ADDRESS 
#72,RMSGCC :SET UP RX TO GET ITEP MSG. 

#70-DVRC DVRCC 


DVR 
RX, RX INTERRUPTS,AND DATA SET INTERRUPTS 
002657 H #RHDMSG+1 , RMSGPT sSETUP RX BUFFER ADDRESS 
7 sits 54 MOV HDMC ,RMSGCC sSETUP CHARACT 


WRINTEN!RXENA!ADSITEN!ASTRIP,@RXCSR ENABLE RECEIVER 
PC sRETURN TO CALLER 
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SEQ 155 
CZDCLB_DUP=-11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83_ 13:19 PAGE 156 
ZDCLB.P11 19=JUL=83 17:12 DEVICE TRANSMIT AND RECEIVE SUBROUTINE C 


-SBTTL DEVICE TRANSMIT AND RECEIVE SUBROUTINE 


; "FUNCTIONAL DESCRIPTION: 
; DVTXRX=DEVICE eg AND RECEIVE ROUTINE 

THIS CODE QUES TRAN FER TO THE DEVICE 

IF NEEDED. THE N WAITS FOR A TX 

RX COMPLET CODE REPORTS A TI 

ERROR IF NO T INTERRUPT IS ee D BEFORE 

60 SECONDS. AFTER REPORTING ERROR TIMER IS RE STARTED 

AND DEVICE WILL CONTINUE TO WAIT FOR INTERRUPT. 


““DVTXA’’ = ADDRESS OF TRANSMIT MSG. 
OUNT OF TRANSMI 


*“DVTXA’’ = ADDRESS OF i. ms. COMPLETED 
T i m cee COMPLETED 


T X MSG. COMPLETED 
“QRX"’ == SET IF RX COMPLETED 


; SUBORDINATE ROUTINES USED: 
“LGDVE’’ = LOG DEVICE ERROR TO EVENT LOG 


; CALLING SEQUENCE: 
; JSR PC ,DVTXRX 


035272 032737 3 #QTX FLAG sANY ™ be QUE ?(ARE WE TRANSMITTING?) 
035300 001444 BE 


DVIR 

#QTX+ATXM*+PAD FLAG CLEAR FLAG 

PC.CTSSR 360 SET 

sREMOTE NODE = ITEP ? 


RNODE 

DVTR1I 

#TXM,FLAG STK X°ONLY DATA MESSAGE 
DVTXA,MSGPTR ;MESSAGE ADDRESS 
DVTCC ,MSGCC 7MESSAGE CHAR COUNT 


DVTR ; 
TX AND TX INTER. 


od -HDMSG+1 3SET UP SOH 
#HDMSG+1 ,MSGPTR 3SET POINTER TO HEADER 
DVTCC, ya 


MO HD Ae ASG seer CC FOR HEADER 
035376 000177 : #17 a YNCE SET UP FOR 177 SYNCS. 
it MANY SYNCS ARE NECESSARY 
F THE OTHER NODE HAS A 
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CZDCLB DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83_ 13:19 PAGE 157 
CZDCLB.P11 19=JUL=83 17:12 DEVICE TRANSMIT AND RECEIVE SUBROUTINE c 


33sSLOWER CPU.) 
035404 052777 BIS #SEND! ATINTEN, @TXCSR 3TURN ON TX 
035412 MOV #60. , TIMERS 3SET TIMER FOR 60 SECS 
035420 BREAK 
035420 
035422 00 TST TIMERS 31S TIMER EXPIRED 
035426 BNE TOINOT 
3LOG ERROR TIME OUT RX OR TX NOT COMPLETED 

#DVEM2 , TEMP2 

@RXCSR, TEMPS 

@TXCSR, TEMPS 

PC ,LGDVE 


ERRCNT 
7 ,DVEM2,ERR13 


DVTR3 sRETURN TO CHECK TIMER 


032737 #OTX, FLAG s1S IT TX COMPL? 
001406 B DVTRS [BRANCH IF TX NOT DONE. 
PC,CLRRTS 


004737 
032737 000100 #ERX FLAG zARE WE EXPECTING TO RX 
001416 DVTREX sBRANCH IF NOT. 


035516 


035520 032737 WORX, FLAG z1S RX DONE 
035526 001734 8 DVTRB [GO BACK AND TIME IF NOT 


032737 #ETX, FLAG zARE WE EXPECTG TO TX. 
001406 Q DVTREX [BRANCH IF NOT. 


032737 000010 #OTX. FLAG z1S IT TX COMPLETED 
DVTRE : CK AND TIME 
004 037010 JSR PC, CLRRTS SCLEAR RTS IF NESC. 
035554 DVTREX: RTS PC “AND EXIT 





B 13 


SEQ 157 
CZDCLB DUP-11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83 13:19 PAGE 158 
CZDCLB.P11 19=JUL-83 17:12 DEVICE TRANSMIT AND RECEIVE SUBROUTINE 
6349 3: DEVICE DEPENDENT SUBROUTINES 
6350 
6351 
32 
O38 -SBTTL DEVICE INTERRUPT SERVICE ROUTINES 
6356 
6357 
6358 ad 
6359 : FUNCTIONAL DESCRIPTION: 
6360 3 RECEIVER INTERRUPT ROUTINE. WHEN A RX pe. OCCURS 
6361 ; THIS ROUTINE DECIDES IF IT IS A DATA 
6362 3 OR DATA INTERRUPT. IF IT S.A DATA SET CHANGE 
6363 $ INTERRUPT IT PUTS THE STATUS IN °C s*; COMPARES 
6364 3 THAT STATUS TO THE OLD STATUS IN ‘MODS’. IF T 
6365 3 THE SAME THAT MEANS THE INTERRUPT WA D BY A GLITCH 
6366 $ ON ONE OF THE LINES. IF THEY ARE DIFFERENT THE 
ot 3 one ey HAS OCCURED. IN ANY EVENT THE MODEM STATUS 
6369 3 IF A DATA INT. OCCURS THE ROUTING PUTS THE DATA AWAY 
6370 3 IN A BUFFER POINTED TO BY a ar THE MSG. COUNT IS 
6371 3 DECREMENTED BY ONE BYTE. IF C s TO ZERO 
6372 3 ‘BCC’ BIT *RXM’’ BIT IS SET WHEN RX IS DI: 
6373 3 ‘ORX"* BIT IS SET. IF COUNT IS ZERO AND "BCC 8 T IS SET 
6374 3 BUT "RXM"* BIT IS NOT SET THEN MSG COUNT IS SET TO LENGHT 
oer? 3 3 BE iB ee. “RMSGPT’’ IS SET TO RX BUFFER LOCATION 
6377 3 IF COUNT IS EQUAL TO” Re AND "BCC" IS_NOT SET THEN 
6378 3 COUNT IS SET TO 2 AND "'RMSGPT’’ IS SET TO ‘BCCW’* AND 
ost 3 *Bcc’’ BIT IS SET. 
6381 ; IF THE OVERRUN ERROR BIT IS SET THEN 
os 3 AN ERROR IS LOGGED AND ‘‘ORX’’ IS SET AND THE RX IS DISABLED. 
6384 3; INPUTS: 
6385 : wae - ADDRESS OF RX BUFFER 
O56 : RMSCC = COUNT OF DATA TO BE RXED. 
6388 3 SUBORDINATE ROUTINES USED: 
6389 3 " LOGMSC = LOG MODEM STATUS CHANGE 
6390 3 *“LGDVE - LOG DEVICE ERROR 
6391 i 
6392 
6393 035556 BGNSRV DVRXI 
6394 035556 DVRXI:: 
6395 035556 o108%6 MOV R2,-(SP) SAVE R2 
6396 035560 017737 153664 011474 MOV @RXCSR,IRXCSR Fy ad RX CSR TO IMAGE 
6397 932260 32737 000010 006576 BIT #MOCHK , PARAM zANY MODEM CHANGES TO REPORT 
6398 035574 001447 BEQ RXIN21 :1F NOT IGNORE DS CHANGE. 
6399 035576 032737 002000 006602 BIT #INOVR,FLAG [1S INIT OVER 
6400 035604 001443 BEQ RXIN21 ZNO THEN IGNORE DS CHANGE. 
6401 Bsec08 005737 011474 TST Teese 
6402 035612 100040 BPL RXIN21 IF DATA SET CHANGE IS NOT SET BR 
6403 035614 013737 011474 011472 MOV IRXCSR,CMODS sMOV THE NEW MODE US IN 
035622 042737 104761 011472 BIC #104761,CMODS :CLEAR BITS NOT RELATING TO MODEM STATUS 
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Linx TEST MACY11 30A(1052)_ 20-JUL-83_ 13:19 PAGE 159 
DEVICE INTERRUPT SERVICE ROUTINES 


CZ0CL8.P1 19-JUL=83 
RXIN2: CMODS, TEMP3 
MO TEMPS 


peacse 1 ei hops 
5644 7 MP TEMPS 1 TEMP3 :COMPARE OLD TO CURRENT 
5652 4 10$ ZINC GLITCH COUNT 
035654 ZINC HARD COUNT 

035660 :SET UP HARD MESG. 


BR 

108: MGLCNT sINC GLITCH — 
MOV SET UP GL 

RXIN1: PC,LOGMSC 260 LOG MODEM STATUS CHANGE 
MOV CMODS ,MODS ;MOVE CURRENT TO OLD 


STEST FOR DATA 


035714 011474 : BIT #RXDONE,IRXCSR RX DONE ? 
035722 001540 BEQ RXINEX [NO,BRANC 
035724 011476 MOV @RXDBUF,IRXDBUF :READ DATA 
035732 100000 011476 BIT aRERR, IRXDBUF OVERRUN ERROR ? 
035740 BNE RXI YES, BRANCH 


SEQ 158 
CZDCLB DUP=11 DATA COMM 


Ss3 3 


FEET 
sates: 


035666 
035670 
035674 
035702 
035706 


oooco oo 


es as ts 4 Ht 


PSSSSISS SASS SSS 
A} Somnonrwnv—oS 


3GET HERE WITH GOOD DATA 
MOV RMSGPT ,R2 3SET RX MESSAGE POINTER 
MO IRXDBUF,(R2)* STORE DAT 
R2,RMSGPT SAVE UPDATED MESSAGE POINTER 
RMSGCC ZALL DATA RECEIVED ? 
RXINEX : H 
#BCC.FLAG SCHECK CRC ? 
RXI 7 YES,BRANCH 
#CRCOK, IRXDBUF 


Sas 


NVUIW—P 


9 
: YES BRANCH 
“SET UP TO 


Non 


11476 IRXDBUF , TEMP3 
11476 IRXCSR, TEMPS  :;L0G 

017205 MO #DVEMS,TEMP2  3;;PRINT CRC ERROR 
020162 PC,LGDVE :LOG ERROR 


006506 INC ERRCNT sBUMP_COUNT 
ERRSOFT 8,DVEM3,ERR13 ;PRINT ERROR TO USER 


SSSS 
Wanna 


2 

R 
83s 
Von NANG 


on 
& 


BR RXIN8 DISABLE INTERRUPTS AND EXIT 


ORDER TO CHECK CRC, WE MUST READ 2 MORE CHARACTERS(CRC) 
: BIS #BCC.FLAG sSET CRC ALREADY CHECKED FLAG 
TWO CHARACTERS 


#2,RMSGCC 
MO #8CCW,RMSGPT SCRC STORAGE ADDRESS 
BR RXINEX ZEXIT 


Wwr-o 


3LOG OVERRUN ERROR 
MOV #DVEMG , TEMP2 


PSS ISSIS IIS 


MUM 
SONNE 


3 





CZDCLB_DUP=-11 DATA COMM. LINK TEST 
CZ0CLB.P11 19-JUL-83 17:12 


6461 036102 013737 011476 006542 
6462 036110 013737 011474 006544 
6463 Beet 8 20162 

6464 03612 5237 506 

6465 036126 

6466 036126 104457 

6467 0361 11 

6468 036132 017246 

6469 036134 0176 

any 036136 000424 

59h 036140 Ore a? 000040 006602 
6473 036146 40¢0 

6474 036150 052757 000040 

6475 036156 042737 0004 0 
647 B30163 013737 4 151 
6477 036172 013737 00 11 Oil2ts 
6478 036200 015737 002660 7 
rath 036206 


6481 036210 052737 000004 006602 
yor +4 036216 042777 000120 153224 
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MACY11 30A(1052) 20-JUL-83 13:19 PAGE 160 
DEVICE INTERRUPT SERVICE ROUTINES 


MOV IRXDBUF femee 


MOV IRKCSR. EMP4 
JSR i gh GD 
INC ERACN 
ERRSOFT OVENS. ERR13 
TRAP 
s 
“WORD 
WORD 
BR RXIN7 
RXINS: BIT #RXM, FLAG 1S THE RX M BODY BIT SET 
BNE RXIN? SIF YES THEN ALL DONE 
BIS #RXM, FLAG 
BIC #BCC.FLAG 3CLEAR BCC AND SET RXM 
MOV DVRXA,RMSGPT 3MOVE ADDRESS TO POINTER 
MOV RHDMCC ,RMSGCC THE CHAR COUNT IN 
MOV HDMCC, SET THE CC TO AMOUNT IN HEADER 
BR x TAND FINISH. 
RXIN7: BIS WORX, FLAG sSET MESSAGE RECEIVED IN FLAG 
RXINS: BIC WRINTEN+RXENA,@RXCSR =; CLEAR _INTAND RX ENABLE 
RXINEX: MOV (SP)+,R2 :RESTORE R2 
ENDSRV 
L10020: 
RTI 


CSERSOFT 
9 


DVEM4 
ERR13 


SEQ 159 
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CZDCLB DUP-11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83 13:19 PAGE 161 
CZDCLB.P11 19-JUL=83 17:12 DEVICE TRANSMIT INTERRUPT ROUTINE 


- SBTTL DEVICE TRANSMIT INTERRUPT ROUTINE 


$ "FUNCTIONAL DESCRIPTION: 
DEVICE TRANSMIT INT. ROUTINE 


WHEN A TRANSMIT BUFFER EMPTY CAUSES AN INTERRUPT TO OCCUR 
PROGRAM THIS ROUT 


THE S$ TO 

IF THE SYNC COUNT" SYNCC'” IS NON ZERO TSOM IS SET 
A_SYNC CHAR IS LOADED TO TXDBUF AND THE SYNC COUNT IS 

DECREMENTED. 


IF THE Syme PUNT is ZERO TSOM AND TEOM ARE RESET 
AND THE ° ; ell N FLAG WORD IS CHECKED IF IT +. 
SET THEN a PAD 77) CHAR IS LOADED TO TXDBUF AND T 
INTERRUPT ENABLE IS CLEARD. 


IF THE SYNC COUNT IS ZERO THE *PAD** FLAG IS 
CLEAR THEN A BYTE IS PUT IN TXDBUF FROM THE ADDRESS 
IN MSGPTR AND THE MSG COUNT IS DECREMENTED 


IF THE MSG COUNT GOES TO ZERO THE “‘TXM’’ BIT IS 
CHECKED IF IT IS SET THE PAD" FLAG IS SET 

F IT IS CLEAR THEN IT GETS SET I 
LOADED WITH THE ADDRESS OF T HE 
COUNT IS LOADED WITH THE COUNT OF THE MSG TO 
BE TRANSMITTED. 


TS: 

MSGPTR = IS SET TO THE ADDRESS OF THE MSG OR HEADER TO BE TX'D 
ourpurtsoe® - IS SET TO THE COUNT OF MSG TO BE TX'D 
QTX = THIS BIT IS SET WHEN MSG IS TX'D OK. 


o 
° 
. 
e 
7 
e 
. 
° 
. 
° 
. 
e 
. 
e 
* 
e 
. 
e 
. 
oe 
. 
o 
. 
° 
° 
e 
. 
e 
e 
° 
< 
e 
« 
e 
o 
e 
. 
e 
. 
° 
° 
° 
o 
° 
& 
. 
oO 
. 
e 
° 
e 
° 
° 
° 
° 


BGNSRV DVTXI 
R2,-(SP) 
SYNCC 


DVTXI:: 


So 
= 
So 


sSAVE R2 

sANY SYNCS TO SEND 

TXINI 3 IF NOT 

153212 MOV ie imam sELSE SET ian ae SYNC WORD 


sDEC SYNC 
BNE TXINEX z1F NOT ZERO EXIT 
006602 : : TAIN FLAG 318 ee BIT SET 


IF NOT SET 
153166 MOV XDBUF — :LOAD FF TO TX DATA REG. 
153156 oa rateuteenD, aTxcsR >CLEAR TX INT ENABLE 
TXREADY STELL PROTOCOL MODULE WE'RE DONE 
006602 wOTK F [SET THE TX COMPLETE 


SAND EXIT 
3ALL DATA SENT ? 
§ BRANCH 
iBE Sure I ITS CLEAR 
MSGPTR,R2 WITH TX BUFFER POINTER ADDR. 
(R2)+,DATAWORD PUT DATA IN L 
R2,MSGPTR SRESTORE UPDATED POINTER 


N 


possesses 
JEVERS 


S 
a 


i=} 

wn 
SOnWU = ION vIPoONyD 
Hr | a 
WWwowW 
NNN NONMUNN 
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CZDCLB DUP-11 DATA COMM. LINK TEST MACY11 seaetnoieal 20-JUL-83 13:19 PAGE 162 
CZ0CLB.P11 19-JUL-83 17:12 DEVICE TRANSMIT INTERRUPT ROUTINE 


153110 MOV DATAWORD ,@TXDBUF ; HI Be on eG LO BYTE = DATA 


SEQ 161 


343 S THIS THE cee OF para MSG. 
sed os #TXM,FLAG 
MOV DVTXA,MSGPTR 3$0 SET UP wen Sa MSG 


006556 
011502 MSGCC 3BUMP C 
BR TXINEX 
001098 153074 3 Vv #TEOM,aTXDBUF SEND CRC CHARACTER 
006602 B #TXM, FLAG 
SIF SO SET PAD BI 
arr83 SIF NOT MUST BE END OF HEADER 
006456 011502 DVTCC.MSGCC SAND THE CC F 
BR TXINEX 
001000 006602 : #PAD,FLAG :SET THE PAD BIT 


(SP)+,R2 sRESTORE R2 





G 13 


CZDCLB_DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83_ 13:19 PAGE 163 
CZ0CLB.P11 19=JUL=83 17:12 DEVICE TRANSMIT CONTROL MSG 


636) -SBTTL DEVICE TRANSMIT CONTROL MSG 


"FUNCTIONAL DESCRIPTION: 
THIS ry INE DOES THE FOLLOWING 
X SPACE AT RHDMSG+1 
FROM 


QUES A x MSG HDMSG+ 
HECKS FOR A TIMER EXPIRED 
F EXPIRED RETURN TO CALLER 
is CHECK FOR A TX MSG COMPLET 
F TX COMPLET: ED. CHECK FOR RX COMPLETED 
LSE eee TIMER AND_TX COMPLETED UNTIL 

EITHER TX COMPLETE OR TIME OUT 

IF TX COMPLETE AND RX NOT COMPLETE THEN 

REQUE TX MSG. 

ELSE IF “aX COMPLETE RETURN. 


INPUTS: 
= SET IN FLAG WORD 
HDMSG+2 - TYPE OF CONTROL MSG.. 


SUBORDINATE ROUTINES USED: 
*“CLRRTS”’ = CLEAR REQUEST TO SEND IF HALF DUP. 
CALLING eee? 


ne Tune: PC ,DVINS1 
RETURN TO CALLER IF SOMETHING RX°D OR TIMER OUT. 
DVIN31: BIC #QRX! ABCC FLAG sCLEAR RX COMPLETE & CRC ALREADY CHECK 


MOV #RHDMSG+1 , RMSGPT sSET UP POINTER 
MOV HDMC ,RMSGCC sAND CC 


#WRINTEN!RXENA!DSITEN!STRIP,@RXCSR =; TURN ON RX 
TXMITTER TO SEND 
DVINS2: PC.CTSSR sSET RTS . 
BI #OTX!PAD FLAG CLEAR TX COMPT FLAG. 
#HDMSG+1 “MSGPTR [MOVE THE CURRENT POINTER TO MSGPTR. 


HDMC .MSGCC 
#8. .SYNCC sSET UP SYNC COUNT 
#SEND! TINTEN,@TXCSR ;TURN ON TX 


:NOW WAIT FOR TIME OUT OR TX COMPLETE 
DVIN35: BREAK 
006646 TIMERS 
DVIN34 
000010 #OTX. FLAG 
DVINSS 
004737 037010 PC, CLRRTS 
012737 002000 #2000, TEMP1 


eee 


SESEREE 
OwmnFewWwy—o 
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CZDCLB DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83 13:19 PAGE 164 
CZDCLB.P11 19-JUL=83 17:12 DEVICE TRANSMIT CONTROL MSG 


005337 006536 DVIN36: DEC pa & + ie C 
001 300 IT 


oVI AGAI 
032737 000004 006602 BIT pg FLAG DID WE RX 
001733 DvINse 


_™ 
THING 
EQ ZIF_NO NOT RETRANSHIT LAST 
207 DVIN34: RTS RETURN TO CALLER 


SEQ 163 
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CZDCLB DUP=-11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83_ 13:19 PAGE 165 
CZDCL8.P11 19-JUL-83 17:12 DEVICE RTS TO CTS DELAY 


oSBTTL DEVICE RTS TO CTS DELAY 
; "FUNCTIONAL wag op ht 
CTSSR=-THIS ROUTINE SETS DATA TERMINAL . AND 
REQUEST TO SEND TO THE MODEM AND CHECKS FOR 
CLEAR TO SEND TO COME BACK. 
IF CTS DOES NOT COME BACK BEFORE poy EXPIRES 
AND ERROR IS REPORTED AND WE TRY 
THE ROUTINE IS SKIPPED IF INTERNAL LOOP IS SET. 
3 OUTPUTS: 
SUBORDINATE ROUTINES USED: 
“LGDVE"* - 


CALLING SEQUENCE: 
JSR PC,.CTSSR 


LOG DEVICE ERROR 


CMP #1 ,MLTYP 31S THIS TTL LOOP 
BEQ DVTXR9 sBR IF YES 
sSET DTR,RTS AND WAIT FOR CTS 

DVTXR3: #FIRST FLAG 
BNE cTSs3 


MOV #~1, TEMP 
CTSS4: a TEMP 


31F NOT FIRST TIME SKIP DELY 


so BACK 
a" 1000, TIME : OR 1000 TICKS 
: DUPLEX ? 


BNE CTSS4 
004000 8 : #FIRST An Fe 


001000 
7 006574 
035152 3GET MODEM STATUS 
010000 3 CARRIER DETECTED? 


-BRANCH 
TIME DONE ? 
YES.BRANCH 
TRY AGAIN 


152534 CTSS7: #DTRIRTS,@RXCSR ;SET REQUEST TO —_ AND 


2D 
006642 MOV #1000.,TIMER1 SET 
DVTXR2: BREAK 


152516 BIT acts @RXCSR 
BNE xR! 
TST 4 YRCRI 
BNE DVTXR2 


3SET ERROR FOR NO CTS 
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SEQ 165 
CZDCLB _DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83_ 13:19 PAGE 166 
CZDCLB.P11 19-JUL-83 17:12 DEVICE RTS TO CTS DELAY 
6679 
6680 036742 012737 017026 006540 DVTXR4: MOV #DVEM1, TEMP 
6681 036750 017737 152474 006542 MOV @RXCSR, TEMP 
6682 036756 017737 152474 006544 MOV @TXCSR, TEMPS 
6683 036764 004737 020162 JSR PC ,LGDVE 
6684 036770 005237 006506 INC ERRCNT 
6685 036774 ERRSOFT 6,DVEM1,ERR13 
6686 036774 104457 TRAP CSERSOFT 
6687 036776 000006 WORD 6 
6688 037000 017026 eWORD DVEMI 
6689 037002 017636 «WORD ERR13 
6690 037004 000700 BR DVTXRS 3THEN TRY TO SET RTS AGAIN 
6691 037006 DVTXR1: 


6692 037006 000207 DVTXR9: RTS PC 3 
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CZDCLB_DUP=-11 DATA C at IK TEST MACY11 30A(1052) 20-JUL-83_ 13:19 PAGE 167 
CZ0CLB.P11 19=JUL-83 DEVICE CLEAR REQUEST TO SEND 


»SBTTL DEVICE CLEAR REQUEST TO SEND 
¥ FUNCTIONAL DESCRIPTION 

: THIS ROUTINE CLEARS REQUEST TO SEND IF 

: IN-HALF DUPLEX MODE OR MULTI-POINT. (WITH PROTOCOL) 
: CALLING SEQUEN Cc 


E: 
PC,CLRRTS 


CLRATS: 
037132 TST MPPTP sMULTI@POINT ? 


BNE 20S 3 YES, BRANCH 
006574 FHDPLX 31S THIS at DUPLEX 
BNE DVTRS BRANCH IF YES 
152426 : MOV aTXCSR,TEMP2 7GET RX STATUS 
001000 #TXACT, TEMP2 sALL DATA SENT ? 


BNE $ IT 
0 000004 BI #RTS,@RXCSR CLEAR REQUEST TO SEND 
037050 000207 DVTRS: PC SRETURN TO CALLER 
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CZDCLB_DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83_ 13:19 PAGE 168 
CZ2DCLB.P11 19-JUL=83 17:12 DEVICE CLEAR REQUEST TO SEND 


-SBTTL DDCMP PROTOCOL MODULE 


3 RERRAAEREAAEEEEREREREREEEREEEREAEEEEEREREEERAREREEERAREREEEEREEEEEERERAEEREEEEREE 


; DCLT DDCMP PROTOCOL MODULE 


-EVEN 
33 LOCAL STORAGE 


33 TABLE OF STATISTICS AND ERRORS 
a33 NOTE: KEEP THE VARIABLES TOGETHER AND IN SEQUENCE 
ee OTHERWISE THE RPT> ROUTINE WILL PRINT WRONG INFO. 


037052 000000 PRSTAT: .WORD 0 sSTATUS FLAGS 
;B1TO = BCCOK 


=SS 
037054 000000 TMESTX: .WORD 0 STOTAL DATA MESSAGES TRANSMITTED(16 BIT COUNTER 
037056 000000 : .WORD 0 STOTAL DATA MESSAGES RECEIVED(16 BIT COUNTER) 


037060 -BYTE 0 # OF HIGHEST SEQUENTIAL DATA MESSAGE TRANS 
4h MITTED BY ae STATION 
037061 -BYTE 0 a7 THE HIGHEST SEQUENTIAL DATA MESSAGE 
THAT HAS BEEN ACKNOWLEDGE TO THIS STATION 


-BYTE 3# OF THE NEXT DATA MESSAGE TO BE TRANSMITTED 
-BYTE LAST MESSAGE NUMBER TRANSMITTED 


037062 0 
0 

rte Ee sLAST MESSAGE RECEIVED 
E 


037063 


037064 
037065 


037 

037067 
037070 
037071 


03707 
03707 


TRIB ADDRESS PT TO PT = 1 


ERROR COUNTERS 
RENTMO: 8 ya sREMOTE REPLY TIMEOUTS(ACKS SENT NUM=R) 


GLOBAL CRC ERRORS 


0 
: E 0 
REANAK: .BYTE 0 sREASON FOR_LAST NAK SENT 
SELTHER: .BYTE 0 ZSELECTION THRESHOLD ERROR 
RXTHER: .BYTE 0 sRECEIVE THRESHOLD ERRORS 
TXTHER: .BYTE 0 ; TRANSMIT THRESHOLD ERRORS 


$3 $8 83 88 88 & 8 





CZDCLB DUP=11 DATA COMM. LINK TEST 
CZDCLB.P11 19-JUL=83 17:12 


6765 037074 000 
6766 037075 000 


6771 037076 000 
6772 037077 000 


6 037100 000 
6778 037101 000 


6782 037102 000 
037103 000 


037104 000 
037105 000 


6805 ds7 168 000000 
03 


antstt 


MWFEWN—O 
oS 
Ww 4 
= > > > 
&- 
on 


037150 000000 


SEGRE 
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MACY11 30A(1052) ew 13:19 PAGE 169 
DDCMP PROTOCOL MODUL 


DEROUT: .BYTE 0 He ERRORS OUTBOUND (NAKS RECEIVED 
OUTMASK: .BYTE 0 REASONS = 1,2,0R 
MASK VALUES == BITO = HEADER CRC ERROR 
: -- BIT] = DATA FIELD CRC ERROR 
j @- BIT2 = REP RESPONSE NUM<OR 
DERIN: .BYTE 0 sDATA ERRORS ery _— TRANSMITTED 
INMASK: .BYTE 0 REASONS = 1,2,0R 
MASK VALUES == BITO / HEADER CRC ERROR 
: -- BIT! = DATA FIELD CRC ERROR 
: -- BIT2 = REP RESPONSE NUM<OR 
LBUFER: .BYTE 0 LOCAL ta ERRORS (NAKS SENT 
LBMASK: .BYTE 0 #3 REASONS = 8. OR 
SK K VALUES == BITO = BUFFER NOT AVAILABLE 
: =-- BIT] = MESSAGE TOO LONG 
RBUFER: .BYTE 0 sREMOTE BUFFER ERRORS (NAKS RECEIVED 
RBMASK: .BYTE 0 :REASONS 8. 16.) 
MASK VALUES == BITO = BUFFER NOT AVAILBLE 
: =~ BIT! = MESSAGE TOO LONG 
RMSTER: .BYTE 0 sREMOTE STATION ERRORS (NAKS RECEIVED 
RMMASK: .BYTE 0 sREASON 9. 7. 
3MASK VALUES=- BITO = RECEIVER OVERRUN 
: BIT1 = FORMAT ERROR 
LOSTER: .BYTE 0 LOCAL STATION ERRORS (NAKS SENT 
LSMASK: .BYTE 0 SON 9. 7. 
MASK VALUES == B1T0 = RECEIVER OVERRUN 
‘ =~ BIT] = FORMAT ERROR 
RXTXTE: .WORD 0 3RX AND TX THRESHOLD ERRORS (OVERFLOWS) 
SPAREO: .BYTE 0 
SPARE1: .BYTE 0 
PROEND: DO sEND OF PROTOCOL COUNTERS 
IMFLAG: .WORD ZIMAGE OF MAIN CODE FLAG WORD 
RXPRC: .WORD 371 = MESSAGE RX*ED & °ACK' SENT 
TXPRC: .WORD 0 =1 = MESSAGE TX°ED & “ACK® RECEIVED 
ASTRT: .WORD 0 z71 = STACK SENT 
TXREADY: .WORD 0 3 1 = READY TO SEND ANOTHER MESSAGE 
: WORD 0 3 1 = PROTOCOL RUNNING. USED IN THIS MODULE 
MPPTP: .WORD 0 3 1 =_MULTI_ POINT NE 
SELECT: .WORD 0 3 1 =THIS STATION om NOW TRANSMIT (HALF /DUPLEX) 
IMPRSTAT: .WORD 0 3 COPY OF PROTOCOL STATUS WORD 
PRFLAG: .WORD 0 3 USED TO COMMUNICATE WITH RX sareR. ROUT INE 
HDXMTP: .WORD 0 3 1 = HALF LEX OR MULTI-POINT 
PRTEMP: .WORD 0 3 TEMPORARY WORK LOCA 
TURNON: .WORD 0 ; 1 = RECEIVER IS ALREADY ON 
TIMEOUT: .WORD 0 : 20 = PRINT 'TX OR RX NOT COMPLETE" 


SEQ 168 


a SEQ 169 


CZDCLB_DUP=-11 DATA COMM. LINK TEST 
83 17:12 


CZ0CLB.P11 
6816 


19=JUL 


MACY11 30A(1052) ual 13:19 PAGE 170 


DDCMP PROTOCOL MODUL 


33 NAK REASONS VALUES AS USED IN NAK CONTROL MESSAGES 


sHEADER BCC ERROR 
3DATA BCC ERROR 
;REP RE 


TEMPORARILY NOT AVAILABLE 


sBUFFER 

RECEIVER OVERRUN 
MESSAGE TOO LONG 
ZHEADER FORMAT ERROR 


33 ADDITIONAL NAK BIT MASKS AS USED IN COUNTERS 


REPMSK = BIT2 
RXOVMSK= BITO 
FMTMSK = B1T1 
MTLMSK = BIT1 
BNAMSK = BITO 

33 MESSAGE TYPE DEFINITIONS 


SOH = 201 
MAINT = 144 
ENQ = § 


3;SUBTYPES OF CONTROL MESSAGES 


zzSTATUS WORD BIT DEFINITIONS 
BCCOK = BITO 
8 


CCBAD = BIT! 
SACK = BIT2 
SNAK = BITS 
SDATA = BIT4 
RXD = 6 
NAKRX = BITS 
MYDATA = BIT9 
SSTACK = BIT10 
SSTART = B1T11 


sREPLY RESPONSE 
34} OVERRUN 
T ERROR 


SRESSA AGE TOO LONG 
SBUFFER NOT AVAILABLE 


3DATA_MESSAGE 
MAINTENANCE MESSAGE 
sCONTROL MESSAGE 


rte er MESSAGE 
3NEGA TIVE ACKNOWLEDGE MESSAGE 
REPLY TO MESSAGE NUMBER 
START MESSAGE 
START ACKNOWLEDGE MESSAGE 


sBCC CHECKED GOOD 
7BCC CHECKED BAD 
sSEND ACK 


zSEND DATA 
sRECEIVER DONE 
sNAK_ RECEIVED 


sMY DATA 
SEND START ACKNOWLEDGE 


SEND START 
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CZDCLB_DUP=-11 DATA COMM. LINK TEST MACY11 30A(1052) AP ii 13:19 PAGE 171 
CZDCL8.P11 19-JUL-83 17:12 DDCMP PROTOCOL MODUL 


geen POTEET OY ICO IO OT eee 
THE BELOW TABLES AND ASCIZ MESSAGES = USED IN DCLT 
REPORTING OF ERROR COUNTERS. THEY MUST REMAIN IN THE 
CURRENT SEQUENCE ELSE WELL BE REPORTING ERRONEOUS 


SRRHREReEREReRRERERKeeeneeeeeeKeKeEReReereeAeeeeRteeeeeneteneeeeeeees 


037152 0372 STALST: SPOINTER F FOR OFFSET 0 ASCII 
NTE 


bP 
ann 
Pala) 


NANMNM 
AAAN 


IN 
POINTER FOR OFF 


037206 
037210 STAI7A POINTER FOR OFF 


eeeeeeereeteee#ee#eee @ 


AHA SH 


I 
I 
I 
I 
I 
I 
C 
Cc 
C 
Cc 
Cc 
C 
Cc 
Cc 


hnnnnnnn 


:TABLE FOR oo ROUTINES 
_WORD R 


PRIW: 
zPRI : BYTE/BY te ROUTINE 
: BYTE SPECIAL ROUTINE 


037212 


037250 


037252 LAST: sLAST MESSAGE TO PRINT 
037254 FIR: FIRST MESSAGE TO PRINT 
037256 MES: HOLDS MESSAG 

037260 MESDATA: [DATA PART OF MESSAGE 
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CZDCLB_DUP-11 DATA COMM. L MACY11 30A(1052) what 13:19 PAGE 172 
CZ0CLB.P11 19-JUL=83 17: DDCMP PROTOCOL MOD 


geen MOY TOR MYT teen gene nag teeny gry See tae yer rnenesenrse 


THE BELOW ASCIZ MESSAGES USED IN ‘RPT>® LEVEL OF DCLT 


& 
> 
RRR 


/ENZO6ZS2ZASTATUS FLAGS/ 
JENZOOZS2ZADATA MSGS. TX'MITTD/ 
/ ZS2ZADATA_MSGS. RX°CVD/ 
MSG # Bd nT ares bet ~~ : + aad 
XENZ032S5 Ga 


PDAOPDAAGAAOUM 
ANN 


REF 


nm 

EERE 
DAA 

o 

nN 

iw} 
PRR RN 
AARX 
WWWANNNN 


ooo 
Mmernw 
ron 


greee 
RRRRRRRRELKK 


047445 0 STA 
022516 STATA: 


EV 
»LIST BEX 


{RAAAAAARAAAAAAAAARAEEREEREREREEARAEREEARREREEEEEEREEREEAEEREEREREEREEEERERERE 


LUPUS PVPS I IIT 
NEN NERNEY 


/ENZ032S Ss 1 
/ENZOSZSSZALOCAL STA ERRSZNZS8ZAOVRN 201 
/ENZO6ZS2ZATX & RX THRESHOLD ERRORS (OVERFLOW) / 


nnn ANnNNnnonnow 
m AOAAAOOOOOOAON 
> dl 1 an enh an lanl an len lenlenlenbenbanhand 





CZDCLB DUP-11 DATA or LINK TEST 


CZDCLB.P11 


19-JUL=8 


7:12 


037116 
037126 


006576 


037142 


006646 
037134 


037052 


006576 
037130 


006646 
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MACY11 30A(1052) wal 13:19 PAGE 173 
DDCMP PROTOCOL MOD 


opree ooo — + ~ pagerascemceeenmiouennnn ar seine caressa nmInC rae dante 


; PROTOCOL ROUTINE: 


DESCRIPTION: IF THE USER SPECIFIES THE "agrees SWITCH THIS 
: ~y ae TRAncetT L BE CALLED. THIS ROUTINE DECIDES IF 


AR SMITTING AND/OR RECEIVING AND CALLS 
THE NECESSARY ROUTINES. 
THIS CODE WAS WRITTEN ONLY TO BE USED WITH DCLT. 


. etagneeeneennreneegneneeecereneneeeeneaneeeeeenteeeeenereeeneneeeeeenett 


PROTOC: MOV FLAG, IMFLAG 3SAVE COPY OF MAIN CODE "FLAG VARIABLE 
MOV #1, TXREADY LAG 
RXPRC 
TXPRC 
TIMEOUT 
#PRORUN, PARAM 


33 PROTOCOL NOT RUNNING == SO FIRE UP THE LINK 
SETVEC INVEC ,#PRRXI ,#PRIOS sLOAD RX PROTOCOL INTERRUPT ROUTINE 

MOV #PRIOS,-(SP) 
MOV #PRRXI,-(SP) 
MOV INVEC ,~(SP) 

#3,-(SP) 

CSSVEC 

#10,SP 


MOV 
TRAP 


ADD 
HDXMTP sINIT HALF DUPLEX/MULTI-POINT FLAG 
FHDPLX ZHALF DUPLEX 
2$ BRANCH 
MPPTP ‘muti POINT ? 


3$ BRANCH 
#1,HDXMTP ?SET HALF DUPLEX/MULTI-POINT 


#30. TIMERS 330 SECONDS TO START 
#1,SELECT SINIT SELECT 
SINIT YET ANOTHER FLAG 


SINIT ANOTHER FLAG 
SINIT "STACK SENT® FLAG 
INIT STATUS 

ZINIT PROTOCOL COUNTERS AND VARIABLES 
3MULTI = POINT MODE ? 

4$ YES, BRANCH 

#SSTART.PRSTAT TELL TX ROUTINE TO SEND 'START* 

PC, TXPROTO [G0 SEND 

PC-RXPROTO [G0 WAIT FOR *STACK' Or START’ 
#PRORUN, PARAM SDID PROTOCOL START 


:NO,TRY AGAIN 
#1,PRUN STHIS FLAG USED IN RXPROTO ROUTINE 


IF HALF DUPLEX _OR MULTI POINT, WE MUST MANAGE THE LINK DIFFERENTLY 
MOV TIMERS ise uP TI 


os: MER 
TST HDXMTP HALF CUPLEX OR MULTI = POINT? 


SEQ 172 
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CZDCLB DUP-11 DATA COMM. LINK TEST MACY11 30A(1052) wee 13:19 PAGE 174 
CZDCLB.P11 19=JUL=83 17:12 DDCMP PROTOCOL MOD 


041136 001076 BNE PROHDX 7 YES BRANCH 
zz IF FULL DUPLEX AND ACTIVE MODE-- JUMP 
041140 CMP #ACT,MODTYP SACTIVE MODE? 
041146 00144 BEQ 200$ YES, BRANCH 
sz PROTOCOL IS RUNNING == LINK IS HOT SO SEND DATA 
037116 10S: #OTX.IMFLAG ; TRANSMITTING A MESSAGE ? 
037052 20S: #SDATA, PRSTAT 3 SEND DATA FLAG 
TXPROTO SEND THE ME SSAGE 
042104 :CHECK THE REPL 
037122 3MES SAGE TRANSMITTED & “'ACK'ED'? 
208 NO, BRANCH 
037054 [BUMP “TOTAL MESSAGES TRANSMITTED'’ COUNTER 
037120 : ;RECEIVE PROTOCOL FINISHED ? 
BNE 110$ YES, BRANCH 
000004 037116 SRECEIVING A MESSAGE ? 
105$ YES, BRANCH 
041674 EXIT 


ete ore 
RVANRORO 
= 
SANA 
NNNNEN 


SELF RELELLSE 
z 


ee ee ed ed ed ed ed dd 
ronoenoeny 


2 = 
Foro 


& 
Nu 
a & 


042104 105$: 3G0 PROCESS INCOMING MESSAGE 
BR 3SEE IF RECEIVE PROTOCOL COMPLETE 
037056 110$: BUMP “TOTAL MESSAGES RECEIVED’’ COUNTER 


33 ACTIVE MODE (FULL DUPLEX AND POINT TO POINT LINKS) 


2008: C RXON TURN of won 
037052 2108: #SDATA,PRSTAT SEND DATA FLAG 

C TXPROTO 3D0 SEND DATA MESSAGE 
2158: 360 PROCESS INCOMING MESSAGE 
T PRC 3TX PROTOCOL DONE ? 


Re 
wi 
™ 


$3 


1 
037122 
BEQ 2 3NO.BRANCH 
037120 RX PROTOCOL DONE ? 


037056 TME SRX 3BUMP "TOTAL MESSAGES RECEIVED’ 
037054 3BUMP “TOTAL MESSAGE SENT’ COUNTER 


TXREADY SET IN TX INTERRUPT ROUTINE 
037126 5508: Ist TAREADY sMESSAGE SENT ? 


NO 
042000 CALL § RXON STURN ON RECEIVER 
041674 JMP PROTEX EXIT 


sseses 


333 THIS ROUTINE(PROHDX) IS USE IN HALF=DUPLEX PT-PT & MIP 


PROHDX: 

10$: TST FHDPLX sFULL DUPLEX ? 
BNE PROF DX :YES, BRANCH 

037116 BIT #QTX, IMFLAG + TRANSMITTING ? 
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CZDCLB_DUP-11 DATA COMM. LINK TEST MACY11 30A(1052) ular 13:19 PAGE 175 
CZDCLB.P11 19-JUL-83 17:12 DDCMP PROTOCOL MOD 


SEQ 174 


7051 041350 001424 BEQ NO, BRANCH 
2038 041352 005737 037134 208: TST i [D0 WE HAVE THE SELECT BIT ? 
7053 041356 001005 BNE [YES BRANCH 
7054 041 7? 042000 CALL = RXON [TURN ON RX 
7055 041364 7 042110 25$: CALL RXWAIT ZTURN ON RX AND WAIT FOR SELECT BiT 
2036 0413 900 9 BR °DID We Sl THE SELECT BIT 
7057 041372 052737 000020 037052 30$: BIS #SDATA, PRSTAT OEND LAG 
7058 041400 004737 045336 CALL _ TXPROTO 760 SENT tr 
7059 041404 004737 042104 CALL _ RXPROTO [CHECK REPLY 
7060 041410 005737 037122 TST TXPRC 31% PROTOCOL DONE ? 
7061 041414 00175 BEQ 208 : 

041416 005237 037054 INC TMESTX [BUMP TOT AL MESSAGES SENT 
7063 041422 012737 000001 037122 1008: MOV #1, TXPRC SET TX PROTOCOL DONE 
7064 041430 005737 037120 103$: TST RXPRC iB PROTOCOL DONE ? 
7065 041434 001026 BNE 150$ $, BRANCH 
2066 041436 032737 000004 037116 BIT #ORX, IMFLAG eRECETWING ? 
7067 041444 001002 BNE 110$ :YES BRANCH 

041446 000137 041674 JMP PROTEX EXI 
7069 : WAS THE BALL TOSSED BACK IN OUR COURT 
7070 041452 005737 037134 jios: TST sel LECT save we * RECEIVED THE SELECT BiT YET? 
7071 041456 001005 BNE 130$ H 
7072 041460 004737 042000 CALL = RXON :TURN ON RECEIVER 
7073 041464 004737 042110 115$: CALL RXWAIT PROCESS DATA 
7074 041470 000757 BR Y AGAIN 
7075 041472 052737 000004 037052 130$: BIS #SACK,PRSTAT + SEND ACK TO TURN THE LINE AROUND 
7076 041500 004737 045336 CALL § TXPROTO :SEND IT 
7077 041504 7 042104 CALL RXPROTO 360 RECEIVE THE PENDING MESSAGE 
7078 041510 000747 BR 103$ BRANCH 
7079 041512 005237 037056 150$: INC TME SRX [BUMP "RECIEVED MESSAGE COUNTER’ 
7080 041516 004737 042000 CALL = RXON STURN ON RX 
7081 041522 000137 041674 JMP PROTEX EXIT 
rOBs zs THIS ROUTINE (PROFDX:) USED WITH FULL DUPLEX-MULTI POINT LINKS 
rOBS 041526 032737 000010 037116 PROFDX: BIT #QTX, IMFLAG i TRANSMITTING ? 
7086 041534 001003 BNE 10$ BRANCH 
7087 041536 012737 00C001 037122 MOV #1, TXPRC SEI TRANSMIT PROTOCOL COMPLETE 
7088 041544 005737 037120 10$: TST RXPRC MAS THE 1ST MESSAGE RX'ED DURING STARTUP? 
7089 041550 001015 BNE 308 S$, BRANCH 
7090 041552 032737 000004 037116 BIT WORX, IMFLAG ZYES-BRANC ? 
7091 041560 001004 BNE 20: 7 YES,BRANCH 
7092 041562 012737 000001 037120 MOV #1, RXPRC [SET RECEIVE PROTOCOL COMPLETE 
7093 041570 000410 BR 100$ : 
7094 041572 004737 042104 20$: CALL = RXPROTO ZPROCESS INCOMING MESSAGE 
7095 041576 005737 037120 TST RXPRC :DONE 2 
70% 041602 001773 BEQ 208 NO, BRANCH 
7097 041604 005237 037056 30$: ‘INC TME SRX [BUMP RX MESSAGE COUNT 
7098 041610 BR 100$ BRANCH 
7100 041612 005737 037122 100$: TST TXPRC sANYTHING TO SEND ? 
7101 041616 001024 BNE 135$ 7NO,BRANCH 
7103 041620 005737 037134 1208: TST SELECT 300 WE HAVE PERMISSION TO SEND ? 
7104 041624 001005 BNE 3 YES BRAN cH 
7105 041626 004737 042000 CALL = RXON ON T 
106 041632 004737 042110 125$: CALL RAUALT ‘WAIT CN SELECT BIT 
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SEQ 175 

CZDCLB 11 LINK TEST MACY11 30A( (1052) mone ut-83 13:19 PAGE 176 
CZDCLB. : aati OSs iz isk DDCMP PROTO 

7107 041636 7 BR 1208 :TRY AGAIN 

7108 04164 900020 037052 130%: BIS #SDATA, PRSTAT 3 SEND DATA FLAG 

7109 04 1646 04 CALL  TXPROTO ND DATA 

7110 04165 ta 2104 CALL § RXPROTO ?CHECK REPLY 

7111 041656 005737 037122 TST TXPRC [TRANSMIT PROTOCOL DONE ? 

rile 041 001756 BEQ 120$ [NO,TRY AGAIN 

7113 041664 005 037054 INC TME STX [BUMP "TOTAL MESSAGE SENT’ COUNTER 

11h 041670 004737 042000 135$: CALL  RXON TURN ON RX $0 THA 1 T WE WON'T MISS ANY MESSAGES 
7116 041674 022737 177777 037056 PROTEX: CMP  #=",, TMESRX 3 EMAX? 

7117 041702 901002 BNE 10$ NO, BRANCH 

7118 041704 005337 037056 DEC TME SRX 3LATCH Al 177776 

7119 041710 022737 177777 0370546 108: CMP 4-1, TMESTX zRAK? 

7120 041716 901002 BNE 15$ NO, BRANCH 

7121 061720 005337 037054 DEC TMESTX SLATCH AT 177776 

7122 041724 013737 037116 006602 15$: MOV IMFLAG, FLAG SRESTORE "FLAG' TO ITS ORIGINAL VALUE 

123 041732 000207 RTS PC SEXIT 

7125 
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CZDCLB DUP=11 DATA COMM. LINK TEST MACY11 peat ieee uiear 13:19 PAGE 177 
CZDCLB.P11 19-JUL=83 17:12 DDCMP PROTOC 


SEQ 176 


“nada amma daaaae alain laren tia iat tar ori reenact 


PROTOCOL INIT ROUTINE: 


: THIS ROUTINE WILL a hth THE ERROR COUNTERS AND MESSAGE 
: COUNTERS AS NEEDED FOR PROPER DDCMP PROTOCOL OPERAT 
: DURING NORMAL OPERATION THIS CODE WiLL BE CALLED ONCE FROM 

: PROTOCOL STARTUP ROUTINE. 


© RERRRAAAAAAAAAEREEEEAAEEEEAEEEREEREREERERERAERAARERAEAEREAAEAEEEEEREREEEEE 


PROINT: MOV 3 SAVE 
037 MOVB 3SAVE_TRIB NUMBER 
0370 2 #PRSTAT,R oF IRST LOCATION TO CLEAR 
10$: 1)¢ LEAR AND_INCREMEN 
037114 aA R1 ,APROEND LAST LOCATION TO CLEAR 


BRANC 

006534 20S: TEMP, TRIBN :RESTORE TRIB # 

000001 062 #1,T SFIRST MESSAGE # TO BE TRANMITTED 
(SP)+,R1 RESTORE R1 


EERELELELE 
BUBrse 


ass 


gy ny" 9 ei et IE s: 


; TURN ON RECEIVER ROUTINE: 


INITIALIZES VARIABLES THEN RETURNS. 


SREAAAEAERAREAAEEEAAAREEEAEREREARERERAEAAAEAARERAAAEREEEREREREREREAEERERE 


DESCRIPTION: THIS ROUTINE SIMPLY ENABLES THE RECEIVER AND 


037146 RXON: TURNON zRX ALREADY ON ? 
BNE RXONEX YES BRANCH 
037052 PRSTAT SINIT STATUS WORD 
002656 RHDMSG “INIT 1ST YORD OF RX BUFFER 
000444 037140 #ORX! ABCC! #RXM, PRE *FLAGS USED IN RX INTERRUPT ROUTINE 
001000 ASSUME MESSAGE FOR ME 
002657 ARHDMIDRMSGPT BUFFER ADDRESS FOR HEADER PART ON MESSAGE 
002654 MOV HDMC ,RMSGCC CHARACTER COUNT = 6 
000010 006576 #MOCHK , PARAM ZAODER CHANGES WANTED ? 


BN $ ES BRANCH 
000520 ot #RINTEN! RXENA!STAIP.& i 3 TURN ON RX 
000560 147354 20S: Aainren:nxenarpsi EN! STRIP, 1 tee 3 TURN ON RX 


000001 037146 25$: MOV #1, TURNON 
RXONEX: RETURN 
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CZDCLB_DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) ware 13:19 PAGE 178 
CZDCLB.P11 19-JUL=83 17:12 DDCMP PROTOCOL MOD 


© RERAAAAAEAAAAEAAAEAEAAAEEAEEEREEAAEREEERAAERERAEEERERAAEREAAAAEEERAEEEREE 


; RECEIVER PROTOCOL ROUTINE: 


DESCRIPTION: vag 2 ROUTINE WILL psi AN INCOMING MESSAGE 
AND DETERMINE IF IT'S A VALID CONTROL OR DATA 
MESSAGE. IF AN ERROR IS DETECTED THE APPROIATE 
Hay ad fOunTERs WILL BE UPDATED BY THE ERROR 


SUBORDINATE ROUTINES USED: *‘TXPROTO** 
“ERROR PROCESSOR" 


© RRAAAAAAAAAEEAAAAEAREEEEEEEEAEERAEAERERERERERAAEEEEAAREREREEERAEEEAEREEEEE 


RXON ; TURN ON RECEIVER 
FOR FIRST CHARACTER TO APPEAR IN RX BUFFER 
” BREAK ZCHECK FOR *C 
002657 TSTB = RHDMID FIRST CHARACTER READ ? 
BNE 30$ CH 
006646 TIMERS £50 SECONDS ELAPSED ? 
BNE NO, BRANCH 
043732 PC ,ERRPRC SCALL ERROR PROCESSOR 
043730 RXPREX EXIT 
MESSAGE THEN TELL RX INTR. TO PROCESS HEADER ONLY 
002657 000005 cmp RHDAID .#ENG i CONTROL MESSAGE ? 
000040 037140 #RXM, PRFELAG SPROCESS HEADER ONLY 


3 TO BE CHECKED 
000003 037052 : oA > + aaaaicaaie aieantanal sCRC CHECKED ? 


5 7 YES, BRANCH 
006646 TIMERS 360 SECONDS ELAPSED ? 


BNE $ 3NO,BRANCH 
043732 PC,ERRPRC 3G0 PROCESS ERROR 
042104 RXPROTO sTRY AGAIN 


VAM 
a ad ad dd ed ed 
WONAOULWN =O 


R 
™ 
_ 
o 
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SEQ 178 
CZDCLB DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) where 13:19 PAGE 179 


CZDCLB.P11 —- 19=JUL=83 17:12 DDCMP PROTOCOL MOD 
r330 
a4 +: CHECK THAT RX WAS SERVICED QUICK ENOUGH (DETERMINED BY RX INTER. ROUTINE) 
7. 942208 032737 000010 037052 45s: ‘BIT #SNAK,PRSTAT | ;:RX OVERRUN ? 
7226 d4eet 001761 BEQ NO BRANCH 
7225 042212 004737 043732 JSR PC, ,ERRPRC £60 PROCESS ERROR 
7226 042216 004737 045336 JSR PC. TXPROTO 750 SEND NAK 
227 042222 000137 042104 JMP RXPROTO :TRY AGAIN 
7229 IF HEADER CRC ERROR THEN LOG IT AND SEND NAK 
7230 042226 032737 000002 037052 bbs: BIT WBCCBAD,PRSTAT ;CRC ERROR ? 
7231 042234 001430 BEQ 60$ :NO, BRANCH 
32 042236 052737 000010 037052 BIS #SNAK ,PRSTAT :Sef SNAK (SEND NAK) 
7233 042244 152737 000001 037077 BIS8 § #HEADBCC,INMASK :SET THE MASK 
34 042252 112737 000001 037070 MOVB § #HEADBCC.REANAK :NAK REASON = 
7235 042260 105237 037076 INCB DER IN 3LOG DATA ERROR INBOUND 
3 042264 001003 BNE 55$ (CH IF NOT OVERFLOW 
7237 042266 112737 000377 037076 MOVB #377, DERIN SLATCH COUNTER AT 255. 
7238 042274 004737 043732 55$: JSR C,ERRPRC 760 PROCESS ER ROR 
7239 042 012737 000001 037134 MOV a ~SELECT 31F HALF/DUPLEX, WE ASSUME S-BIT WAS SET 
7240 042306 004737 045336 JSR PC. TXPROTO ND NAK 
724 042312 000137 042104 JMP RXPROTO tTRY AGAIN 
7263 NOW CHECK THE ADDRESS OF THE MESSAGE~ IS IT FOR ME ? 
754% 042316 123737 037065 002666 80S: CMPB  TRIGN.RHDADR  :MY ADDRESS ? 
7245 042324 001422 BEQ 70$ ZYES, BRANCH 
7267 ITS NOT FOR ME, BUT COUNT IT OUT TO KEEP RX IN SYNC 
7248 042326 042737 001000 037052 é3s: BIC #AYDATA, PRSTAT SSAGE NOT FOR ME 
7249 042334 032737 000100 037052 BIT #RXD,PRSTAT RECEIVER DONE ? 
7250 042342 001003 BNE $ BRANCH 
7251 042344 005737 006646 TST TIMERS ‘Mave WE DAWDLED LONG ENOUGH ? 
238 042350 001366 BNE 62$ 7NO, BRANCH 
7254 942352 032737 000001 037052 65$: BIT #BCCOK ,PRSTAT sDATA CRC OK ? 
7255 042360 001002 BNE 7$ BRANCH 
7256 042362 105237 037067 INCB = GLOBCC ‘Loe GLOBAL CRC ERROR 
1257 042366 000137 042104 67$: JMP RXPROTO [G0 RE-QUE BUFFER 
7259 
7260 zz: IS IT A CONTROL MESSAGE ? IF IT IS PROCESS IT 
7262 042372 105037 037072 70$: CLRB  RXTHER sINIT RX THRESHOLD ERROR COUNTER 
7263 042376 122737 000005 002657 CMPB = #ENQ, RHDMID [CONTROL MESSAGE ? 
7264 042404 00140 BEQ 75$ YES BRANCH 
7265 042406 000137 043256 : JMP 200 [GO PROCESS DATA MESSAGE 
7267 >: IS IT ANAK ? 
68 042412 122737 000002 002660 75$: § CMPB = #NAK,RHDTYP :NAK? 
7269 042420 001022 BNE :NO, BRANCH 
7270 O424ee 032737 000100 006576 BIT #PRORUN,PARAM :PROTCSOL RUNNING ? 
042430 001002 BNE 80$ [YES BRANCH 
7272 042432 000137 042104 JMP RXPROTO SIGNORE THIS MESSAGE 
7273 0426436 052737 900400 037052 80$: BIS #NAKRX,PRSTAT [FLAG NAK RECEIVED 
7274 042464 006737 04373 JSR PC, ,ERRPRC *GO LOG NAK REASON 
7275 042450 052737 000020 037052 BIS WSDATA,PRSTAT SEND DATA 
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CZDCLB_DUP-11 DATA COMM. LINK TEST MACY17? 39A(1052) ue 13:19 PAGE 180 
CZDCLB.P11 19-JUL=83 17:12 DDCMI PROTOCOL MOD 


7276 042456 004737 045336 JSR PC, TXPROTO 360 A oe PREVIOUS MESSAGE 
7277 ~042462 000137 042104 JMP RXPROTO G0 RE-QUE R 





L 14 


CZDCLB DUP=11 DATA COMM. LINK MACY11 30A(1052) wat 13:19 PAGE 181 
CZ0CLB.P11 19-JUL=83 17:12 DDCMP PROTOCOL MOD 


-: IS IT A ACK ? 
$6s:  CMPB #ACK,RHDTYP ZACK ? 
BNE 100$ 


NO, BRANCH 
#PRORUN, PARAM PROTOCOL RUNNING 1 ? 
B1 #PRORUN, PARAM TELL THE WORLD THAT LINK HAS STARTED 
037062 :  CMPB  T,RHDREP SCORRECT MESSAGE # ACKNOWLEDGED ? 
95$ YES BRANCH 
037142 HDXMTP 3HALF DUPLEX/MULTI =POINT ? 
BNE 97$ BRANCH 
RXPROTO GAIN 
TXTHER $INIT TX THRESHOLD COUNTER 
TN HIGHEST SEQUENTIAL MESSAGE # SENT 
T,X SHIGHEST MESSAGE # SEN 
RHDREP,A SHIGHEST MESSAGE @# ACKNOWL EDGED TO THIS STATION 
T 74 OF NEXT DATA MESSAGE TO BE TRANSMITTED 
037122 MOV #~1, TXPRC ZTRANSMIT PROTOCOL COMPLETE 
3 006570 #act MODTYP SACTIVE MODE ? 
97$ NO, BRANCH 
037120 RXPRC [RX PROTOCOL COMPLETE? 
BNE 9 : ANCH 
006574 FHDPLX HALF DUPLEX? 
97$ YES, BRAN 
042104 MP RXPROTO 260 process INCOMING MESSAGE 


043730 : RXPREX sEXIT 


3x 


SSsa 
3s 


: e 


M2O—3 =O 


2292---s 
SLMS MANNMINUY 
SUSUMU 


00 
00 
00 
00 
000 


ee 9 
002660 $:  CMPB #REP ,RHDTYP sREP ? 
BNE 150$ :NO,BRANCH 


006576 ; #PRORUN, PARAM PROTOCOL RUNNING ? 


J RXPROTO : TGNORE MES SSAGE= TRY AGAIN 
037064 : = RHDNUM,R sHAVE WE RECEIVED THIS MESSAGE ? 


1 :NO, BRANCH 
037052 1S WSACK.PRSTAT SET SEND ACK 
REMTMO ;BUMP REMOTE TIME ur COUNTER 
BN 115$ IF NOT OVER FLOW 
7 037066 MOVB  =#377,REMTMO SOIC COUNTER AT 25 
: PC, TXPROTO END A 


260 $ 
TRY AGAIN’ 


ee <> 
037052 120$: 21 WSNAK,PRSTAT SET SEND NAK 
000003 037070 MOVB AmEPSENT REANAK 3SET REASON FOR NAK 
037076 DER A ERROR INBOUND 
SBRANCH It NOT OVERFLOW 


BNE 1 ag. 
000377 03707 MOVB = #377 ERIN SLATCH AT 255. 
037077 125$: #REPMSK, I ERROR REASON IS REMOTE TIME OUT 
043732 J PC ERP rT ala PROCESS 
045336 PC. TXPROTO 760 SEND NAR 





M14 


CZDCLB DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) ele 13:19 PAGE 182 
CZDCLB.P11 19=JUL=83 17:12 DDCMP PROTOCOL MODUL 


SEQ 181 


7334 042770 000137 042104 JMP RXPROTO zTRY AGAIN 





N 14 


CZDCLB_DUP-11 DATA COMM. LINK MACY11 30A(1052) uate 13:19 PAGE 183 
CZDCLB.P11 19-JUL=83 17:12 DDCMP PROTOCOL MOD 


IS IT A START ? 
002660 150s: CMP #STRT,RHDTYP  ;START ? 


E 3NO, BRANCH 
006576 ait #PRORUN, PARAM ree eRe ? 
037052 WSSTACK,PRSTAT SEND START acerca 


PC, TXPROTO 3G0 SEND STA 
RXPROTO 360 TO RX ROUTINE AND EXPECT ACK OR DATA 
DMV OR DMP. 


006576 : WABORT,PARAM ; TELL MAIN CODE TO ABORT!! 
037120 MO #~1,RXPRC SRECEIVE PROTCOL DONE 
012737. 177777 037122 MOV #~1_TXPRC TRANSMIT PROTOCOL DONE 
#165$ [FATAL ERROR 
012746 043100 #165%,-(SP) 
012746 000001 #1,-(SP) 
010600 MOV SP,RO 
104417 CSPNTF 
062706 000004 ADD . 
000137 RXPREX EXIT 
.NLIST BEX 
047045 052123 1658: -ASCIZ /2NZASTART RECEIVED WITH PROTOCOL RUNNING--ABORTING! !/ 
LIST BEX 
zs; IS IT A STACK ? IF SO SEND AN ACK’ 
122737 002660 170$: WSTACK,RHDTYP STACK ? 
101 BN [NO, BRANCH 
037052 WSACK,PRSTAT |: TELL TX ROUTINE TO SEND ACK 
PC, TXPROTO 


e sSEND ACK 
006576 #PRORUN,PARAM =;SET "PROTOCOL RUNNING’ FLAG 
RXPREX sEXIT 


IF WE GOT TO HERE, WE HAVE A STRANGE PROBLEM ! 
037052 i808: els #SNAK,PRSTAT :SET SEND NAK FLA 


G 
LOSTE SLOCAL STATION ERROR 
037107 #FORMERRLSMASK 37 T ERROR 
PC ,ERRPRC ZPROCESS ERROR 
PC, TXPROTO NAK 
Y AGAIN 


RXPROTO 
33 END of "CONTROL MESSAGE PROCESSOR 





CZDCLB_DUP-11 DATA COMM. Link 


CZ0CLB.P11 


e 
z 


19=JUL-83 


Ss geese 


WoW 
a 


17: 


037120 


000 037052 


001 
037122 


037122 


002663 


037052 
037052 


037052 


037052 


037052 


037052 


8 15 


MACY11 30A(1052) what 13:19 PAGE 184 
DDCMP PROTOCOL MOD 


333HERE WE BEGIN PROCESSING DATA PART OF MESSAGE 


200$: TST RXPRC sALREADY PROCESSED A MESSAGE? 


215$ oNU, 
#MYDATA,PRSTAT ere RX ee NOT TO STORE THIS 
TXPRC X PROTOCOL DONE ? 


YES, BRANCH 
in THIS MESSAGE 
yy aa SENT? 


:NO 
SHIGHEST # SENT, 
{HIGHEST MESSAGE ACK ED 
NCB 3NEXT MESSAGE TO SEND 
MOV =. #1, TXPRC :TX PROTOCOL 
JMP __RXPREX 3EXIT 
SEQUENCE OF MESSAGE 
INCB OR sEXPECTED # 


CMPB sR, RHDNUM [CORRECT nESSAGE # 
BEQ 300$ 3YES, PROCESS IT 


DECB R cT 1 

BIC #MYDATA, PRSTAT SJUST COUNT OUT MESSAGE-DON'T PUT IN BUFFER 
BIT #RXD ,PRSTAT sWAIT FOR DONE 

BNE 250$ BRANCH 

TST TIMERS ;TIME OUT? 

BNE 220$ 2NO,BRANCH 


-:SEND AN "‘ACK"’ 
550$: BIS WSACK,PRSTAT —; SEND ACK 
CALL § TXPROTO :60 SEND IT 
RXPROTO [TRY AGAIN 


IS DATA PART OF MESSAGE COMPLETE ? 
60s: BIT #RXD ,PRSTAT 3MESSAGE COMPLETE ? 
BNE 330$° BRANCH 


33 IS ae Dae DEAD ? 
TIMERS sTIMED-OUT ? 
BNE 305$ 2NO,BRANCH 
JSR cose 3GO PROCESS TIMER ERROR 
JMP RXPROTO sTRY AGAIN 


CHECK FOR RECEIVER OVERRUN OR BUFFER PROBLEM 
$65$: BIT WSNAK,PRSTAT — DID RX INTERRUPT SET THIS ? 
BEQ 300$ ANCH 


33RX ERROR SEND A NAK AND TRY AGAIN 
JSR PC, ,ERRPRC GO PROCESS ERROR 
38 PC, TXPROTO 7SEND NAK 
JMP RXPROTO zTRY AGAIN 


: CHECK FOR DATA CRC ERROR 
$$0$: BIT WBCCOK,PRSTAT ;DATA CRC GOOD ? 


SEQ 183 





CZDCLB DUP-11 DATA COMM. LINK TEST 
CZDCLB.P11 19-JUL=83 17:12 


7437 043512 001022 

2737 000010 037052 
rt 4 037076 

2737 000377 037076 
2737 000002 037077 
7445 043544 004737 04373 

7446 004737 045336 

ree 043554 000137 042104 


7451 043560 032737 000100 006576 
7452 043566 001007 

7453 043570 005737 037124 

7454 043574 001001 

7455 043576 54 

7456 

7457 

og 043600 052737 000100 006576 
7460 

7461 043606 123737 037062 002662 
7462 043614 001016 

7463 043616 113737 037062 037060 
7464 043624 113737 037062 037063 
7465 043632 113737 037062 037061 
7466 043640 105237 937066 

7467 043644 012737 177777 037122 
7468 043652 re 037052 
7469 043660 737 045336 

7470 043664 012737 177777 037120 
7471 043672 005737 037130 

EG 043676 001414 

7473 043700 005737 037142 

7474 043704 001011 

7475 043706 022737 000003 006570 
7476 043714 001005 

7477 043716 005737 037122 

7478 043722 00100. 

pa 043724 000137 042104 

7481 043730 000207 


c 15 
MACY11 30A(1052) ual 13:19 PAGE 185 


DDCMP PROTOCOL 
BNE ste :YES,BRANCH 
zz LOG CRC ERROR AND SEND A NAK 
BIS WSNAK,PRSTAT SET SEND NAK FLAG 
eee DERIN [BUMP DATA ERROR INBOUND COUNTER 
BNE 340$ BRANCH If NOT OVERFLOW 
MOVE  #377,DERIN SLATCH AT 
340$: BIS8  #DATABCC,INMASK :SET DATA CRC BIT 
JSR PC, ERRPRC 760 PROCESS ERROR 
JSR PC. TXPROTO : ND NAK 
JMP XPROTO :TRY AGAIN 


WE HAVE A GOOD MESSAGE !!! sO. ACKNOWLEDGE IT 
idos: BIT #PRORUN PARA PROTOCOL RUNNING? 


7 YES, BRANCH 
TST ASTRT <DID WE SEND A STACK? 
BNE 415$ YES BRANCH 
BR RXPREX EXIT 
NOTE: DMV/DPM WILL SEND "START = STACK = DATA’ FOR STARTUP SEQUENCE 


iiss: BIS #PRORUN,PARAM ;SET PROTOCOL RUNNING 
>: CHECK FOR AN IMPLICIT ‘ACK* 
4308: CHP T ,RHDREP sRESP = MESSAGE SENT ? 
MOVB si HIGHEST SEQ MESSAGE # SENT 
MOVB =iT/X “HIGHEST MESSAGE SENT 
MOVB =s«iT~/A [HIGHEST HESSAGE "ACK°ED® 
INCB OT [NEXT MESSAGE # TO TRANSMIT 
MOV #~1, TXPRC [SET TRANSMIT PROTOCOL COMPLETE 
450$: BIS WSACK,PRSTAT SET SEND ACK FLAG 
JSR PC, TXPROTO SEND ACK 
MOV #~1 ,RXPRC SRECEIVE MESSAGE PROTOCOL FINISHED 
TST PRUN [PROTOCOL RUNNING ? 
BEQ RXPREX NO, BRANCH 
TST HDXMTP [FULL DUPLEX PT-PT? 
BNE RXPREX NO H 
CMP #ACT MODTYP SACTIVE MODE ? 
BNE XPREX NO, BRANC 
TST TXPRC [TRANSMIT PROTOCOL COMPLETE ? 
BNE RXPREX 


2 YES BRANCH 
JMP RXPROTO 3G0 PROCESS MESSAGE 
RXPREX: RETURN sDONE !! 


SEQ 184 





D 15 


CZDCLB DUP=11 DATA COMM. LINK TEST MACY11 pete were 13:19 PAGE 186 
CZ0CLB.P11 19-JUL=83 17:12 DDCMP PROTOCOL 


SEQ 185 


angen negra ne nin mee ge «mene ma iting ota er 


ERROR PROCESSING ROUTINE (ERRPRC): 


DESCRIPTION: THIS ROUTINE IS USED TO PROCESS INBOUND AND 
OUTBOUND ERRORS. ALSO THE 60 SECOND ‘WATCHDOG’ 
TIMER IS CHECKED. 


“ THE MAJORITY OF THE CODE IS USED IN PROCESSING 

; OUTBOUND ERRORS (NAKS RECEIVED). THE NAK REASON 

; DETERMINED THE APPROIATE ERROR 

‘ COUNTER IN INCREMENT IF THE te CLEA THRESHOLD 
‘ COUNTER (TXTHER) REACHES 7, IT IS 

3 AND THE CUMULATIVE R RECEIVE/TRANSALT THRESHOLD 

: ERROR (RXTXTE) COUNTER IS BUMPED. 


Rene tO, EL UR. 2 FD. 


3sCHECK THE WATCHDOG TIMER 

ERRPRC: TST TIMERS 360 Voy ELAPSED 
BNE 3NO,BR 
BIT #PRORUN,PARAM ; PROTOCOL HRUNNING ? 
BNE 7$ 2 YES,BRANCH 


33 INFORM USER OF “START = STACK’ eee 
CLR er sINIT IT 
CLR TEMP: NIT IT 


MOV TEENS, TEMP INIT OUT IN START=STACK SEQUENCE’ 
MOVB = RHDMCC, TEMP [RECEIVED DATA 

MOVB -HDMCC, TEMP4 [TRANSMITTED DATA 

JSR PC ,LGDVE [LOG TIME OUT IN EVENT LOG 
RROR COUNT 


INC ERRCNT sBUMP ERROR 
ERRSOFT 10. ,DVEMS,ERR13 :PRINT ERROR 


CSERSOFT 
10 


DVEMS 
ERR13 
INC OPVAR sBUMP ERROR COUNTER 
MOV rt Ab aay ;RE-INIT TIMER 
044506 JMP RREXT EXIT 


INFORM USER OF "DATA MESSAGE" TIMEOUT 
037150 43: INC 
000024 


TIMEOU sBUMP COUNTER 
037150 a #20... TIMEOUT 3 so ? 
017110 006540 MOV #DVEM2, TEMP 3" TIME OUT WAITING FOR RX OR TX TO COMPLETE’ 
145362 006542 MOV @RXCSR, TEMP 3RECEIVER ADDRESS 
006544 MOV @TXCSR, TEMPS TRANSMIT ADDRESS 
JSR PC ,LGDVE $106 ERROR 
INC gr CNT sBUMP ERROR COUNT 
ERRSOFT 7,DVEM2,ERR13  ;PRINT ERROR 
TRAP CSERSOFT 
-WORD 7 





CZDCLB_ DUP=11 DATA C 
19-JULSBS 17:12 


CZ0CLB.P11 


017110 
oiz638 


032737 
001542 


122737 
1403 


nasSoonr 
TORS 

ao 

ANW NPN 


OMM. LINK TEST 


037150 
000003 


000400 


000007 
037073 


037110 
037073 


140000 
000001 


037074 
000377 
000001 


000002 
037074 


000377 
000002 


000010 
037102 
000377 
000001 


037052 


037073 


002660 
002661 


037074 
037075 


002661 


037074 
037075 


002661 


037102 
037103 


002661 


037104 


E 15 


MACY11 30A(1052) aha 
DDCMP PROTOCOL MOD 


CLR 
9$: MOV 
BR 


TIMEOUT 
#3. , TIMERS 
ERREXT 


IF A "NAR" RECEIVED THEN PROCESS IT 
ibs: git #NAKRX. PR RSTAT 


13:19 PAGE 187 


sINIT TIMEOUT 
3SET_UP TIMER 
EXIT 


NAK RECEIVED? 
NO-BRANCH 


331F TRANSMIT bar a = ot THEN BUMP CUMULATIVE TXRX COUNTER 
CMPB #7, TXTHER HRESHOLD REACHED? 


BEQ : 
INCB 
BR 
INC RXTXTE 
CLRB =—« TXTHER 
r22gDETERMINE THE "NAK’ REASON 
*HEADER CRC ERROR ? 
Sos: BIC #BIT1S1B1T14. RHDTYP 
CMPB © #HEADBCC ,RHDTYP+1 
BNE 5$ 
INCB _DEROUT 


BNE 2s 

MOVE eee DEROUT 
BISB #HEADBCC. OUTMASK 
BR ERREXT 


20S: 


32$: 


“DATA CRC ERROR ? 
$$$: CMPB. MDATABCC RHDTYP+1 
BNE 40$ 


INCB = DEROUT 
BNE 37$ 

MOVB = #377,DEROUT 
BISB § #DATABCC,OUTMASK 

BR ERREXT 

: REMOTE STATION BUFFER NOT AVAILABLE? 
40$: CMPB #BUFFNA,RHDTYP+1 


37$: 


BNE 45 
INCB ER 
BNE 43$ 


MOVB #377 ,RBUFER 
43$: BISB #BNAMSK , RBMASK 
BR ERREXT 


- REMOTE STATION R RECEIVER OVERRUN? 
453: CHPB  #RXOVRUN,RHDTYP#+1 


BNE 

INCB = RMSTER 

BNE 

MOVE #377,RMSTER 


2 ES, BRAN 
TXTHER ; BUMP 


CH 
TRANSMIT THESHOLD 


sBRANCH 
7BUMP TRANSMIT/RECEIVE THRESHOLD COUNTER 
7SET TRANSMIT COUNTER TO ZERO 


3 CLEAR seuecr E. os FLAG 
ZHEADER CRC 

NO,BRANC 
$106 ER 


3 ROR 

sBRANCH IF NOT OVERFLOW 
LATCH AT 255. 

3SET_MASK 


sDATA CRC ERROR ? 
?LOG ERROR 
PBRANCH IF 
SLATCH AT 255. 
[SET MASK 


T OVERFLOW 


BUFFER NOT AVAILABLE? 
ANCH 


3LOG ERROR 

ZBRANCH NOT OVERFLOW 
LATCH AT 255. 

SET MASK 


by OVERRUN? 
eee 


i106 ER ERR 
[BRANCH " 


OVERFLOW 
LATCH AT 255. 





CZDCLB DUP-11 
CZ0CLB.P11 


044346 
044354 


DATA COMM. LINK 
19-JUL-83 17:12 


000001 


000020 
037102 
000377 
000002 


TEST 


037105 


002661 


03710 
03710 


002661 


7104 


03 
2 037105 


000010 


000007 
037072 


037110 
037072 


037052 


037072 


F 15 


MACY11 30A(1052) alia 13:19 PAGE 188 
DDCMP PROTOCOL MODUL 


47$: B1S8 A ana 3SET_MASK 
BR ERREXT sEXIT 


sREMOTE STATION MESSAGE TOO LONG? 
SOs: CMPB ante oRHDTYP+1 s MESSAGE TOO LONG? 


BNE BR 

INCB RBUFER 3106 REMOTE STATION a ERROR 

BNE 365 ANCH Ay NO OVERFL 

MOVB 4#377,RBUFER SLATCH A T 255. 
52$: B1S8 kk eats 3SET MASK 

BR ERREXT sEXIT 


: REMOTE STATION FORMAT ERROR? 
bis: CHPB é' #F ORMERR. sRHDTYP+1 RS onan STATION FORMAT ERROR? 


BNE 

INCB = RMSTER Ne ER 
BNE 57$ ZBRANCH * NO OVERFLOW 
MOVB = #377,RMSTER SLATCH AT 255. 
BI1S8B Os #FM TASK. RAMA MMASK SET nASK 

BR ERRE EXIT 


SEQ 187 


z3_IF SEND NAK (SNAK=1) THEN BUMP RECEIVER THRESHOLD ERROR COUNTER 
IF RXTHER = 7 THE BUMP RXTXTE COUNTER AND CLEAR RXTHER 
ibds: BIT #SNAK ,PRSTAT :SEND NAK ? 


ERREXT [NO, BRANCH 
#7, RXTHER :RECEIVER THRESHOLD = 7? 
120$ 


YES 
RXTHER [BUMP C 
ERREXT [BRANCH 


RXTXTE sBUMP CUMULATIVE COUNTER 
RXTHER sINIT RECEIVER THRESHOLD COUNTER 
ERREXT EXIT 


ERREXT: RETURN 





CZDCLB_DUP-11 DATA com. LINK TEST 
CZ0CLB.P11 


AM RAIS 


SErESEeaeaS 


PERE 
FE nt ee 
Bee 
MLO 


19=JUL-83 


010246 


17:12 


144732 
000010 
002000 
004000 


011474 
011474 


011474 
006576 


037116 
037116 


MACY11 30A(1052) 20-JUL-83 13:19 PAGE 189 
DDCMP PROTOCOL MODULE 


~SBTTL 


PRIN2: 


GLINC: 
PRIN1: 


RECEIVER PROTOCOL INTERRUPT ROUTINE 


"FUNCTIONAL D DESCRIPTION: 


15 


ROUTINE IS USED ONLY WHEN THE °'/PROTOCOL* SWITCH 


IS SPECIFIED BY THE USER. 
WHEN A RX INT. OCCURS THIS ROUTINE DECIDES IF IT IS A DATA SET 
HANGE OR DAT. I ser neat 


ge NTERRUPT WAS CAUSED B 
ON ONE OF THE LINES. IF THEY ARE DIFFERENT THEN A 


DATA 


MODEM ERROR n HAS OC CURED. IN ANY EVENT THE MODEM STATUS 


CHANGE IS 


IF A DATA INTERRUPT 
CONDITION AND IF SET 


INPUTS: 


THE ROUTINE CHECK FOR AN OVERRUN 


RMSGPT = ADDRESS OF RX BUFFER 
RMSCC = COUNT OF DATA TO BE RXED. 


SUBORDINATE ees See 


*LGDVE*’ 
BGNSRV PRRXI 
MOV R2,-(SP) 
@RXCSR, IRXCSR 


MOV 

BIT a 

BIT #INOVR, IMFLAG 

BIT #FIRST, IMFLAG 
PRIN21 

TST IRXCSR 


BPL PRIN21 

MOV IRXCSR, CMODS 
BIC #104761, CMODS 
MOV CMODS TEMP 

MOV aa MP4 


CMP MOREL TERPS 
GLINC 
MHRCNT 

MOV prim ,TEMP2 


MGLCN 

AGLASG TEMP2 
JSR LOGASC 

MO CmObS 


= LOG MODEM STATUS CHANGE 


- LOG DEVICE ERROR 


SDATA SET CHANGE 

IF DATA SET CHANGE IS_NOT SET BR 

2MOV Ww MOD TATUS_IN 

3CLEAR BITS NOT RELATING TO MODEM STATUS 


sINC GLITCH 
2 INC HARD 


COUNT 
7SET UP HARD MESG. 


sINC GLITCH COUNT 
;SET UP GLITCH 


HE 
FIRST ANH HERE? 


sCOMPARE OLD TO CURRENT 
COUNT 


GO LOG MODEM ; rs CHANGE 


sMOVE CURRENT 


TO OL 


SEQ 188 


H 15 





SEQ 189 

CZDCLB DUP=11 DATA C LINK TEST MACY11 30A(1052) 20-JUL-83 13:19 PAGE 190 
CZDCLB.P11 —- 19=JUL-83 17:12 RECEIVER PROTOCOL INTERRUPT ROUTINE 

7691 s;TEST FOR DATA 

769 044656 032737 000200 011474 PRIN21: BIT #RXDONE, IRXCSR RX DONE ? 

769% 664 001002 BNE 10s YES BRANCH 

7695 O44666 90013 045332 JMP PRINEX EXIT 

769% 044672 017737 144556 011476 108: MOV @RXDBUF, IRXDBUF :READ DATA 

7697 064 032737 011476 BIT aRERR, IRXDBUF OVERRUN ERROR ? 

7698 044706 001414 BEQ NO, BRANCH 

7700 z:1F AN OVERRUN THEN LOG ERROR, SET NAK REASON, TURN OFF RX & EXIT 

7701 044710 052737 000010 037052 BIS WSNAK,PRSTAT ;TELL MAIN CODE ABOUT OVERRUN ERROR 

7702 044716 105237 037106 INCB  _—LLOSTER [LOG LOCAL STATION ERROR 

7703 044722 152737 000001 037107 BIS8 §§ #RXOVMSK,LSMASK ;SET RX OVERRUN MASK BIT 

7704 044 112737 000011 037070 MOVB § #RXOVRUN.REANAK :SET REASON FOR SENDING NAK 

7705 000570 BR PRINS [G0 TURN OFF RX AND EXIT 

as vO 

7708 zzg1F IN MULTI-POINT MODE AND NOT MY ADDRESS THEN JUST BUMP CHAR COUNT 

7710 sSTORE AWAY DATA 

7711 044760 032737 001000 037052 PRING: BIT #MYDATA,PRSTAT ;STORE THIS DATA ? 

7712 044746 001406 BEQ 10$ NO, BRANCH 

7713 044750 013702 011510 MOV RMSGPT ,R2 [SET RX MESSAGE POINTER 

7714 754 113722 011476 MOVB = IRXDBUF,(R2)+  :STORE DATA AWAY 

7215 760 010237 011510 MOV R2,RMSGPT :SAVE UPDATED MESSAGE POINTER 

7717 ::DECREMENT CHARACTER COUNT 

7718 044764 005337 011512 108: DEC RMSGCC sALL DATA RECEIVED ? 

7719 044770 001160 BNE PRINEX [NO, BRANCH 

7720 044772 032737 000400 0.7140 BIT #8CC.PRELAG *CHECK CRC ? 

7721 04 001410 BEQ PRI 7 YES, BRANCH 

7722 045002 032737 010000 011476 BIT #CRCOK, IRXDBUF CR ¢ GOOD ? 

7723 045010 001016 BNE PR S,BRANCH 

7724 045012 052737 000002 037052 BIS #BCCBAD,PRSTAT ; tae’ MAIN CODE ABOUT CRC ERROR 

725 045020 000537 BR PRINS sDISABLE INTERRUPTS AND EXIT 

7727 IN ORDER TO CHECK CRC, WE MUST READ 2 MORE CHARACTERS(CRC) 

7728 045022 052737 000400 037140 PRING: BIS #8CC,PRELAG sSET CRC ALREADY CHECKED FLAG 

7729 045030 012737 000002 011512 MOV #2, [COUNT TWO CHARACTERS 

7730 045036 012737 011514 011510 MOV #BCCW,RMSGPT CRC STORAGE ADDRESS 

7731 045044 000532 BR PRINEX SEXIT 

et 045046 052737 000001 037052 PRINS: BIS #BCCOK,PRSTAT eTELL MAIN CODE CRC HAS BEEN CHECKED 

7734 045054 123737 037065 002664 CMPB —s TRIN, RHDADR Y MESSAGE 

7735 045062 001404 BEQ 5$ YES ;BRANCH 

7736 045064 042737 001000 037052 BIC WMYDATA,PRSTAT DON'T STORE IT 

7737 045072 000407 BR 7$ BRANCH 

7738 SELECT gIT SET ? 

7739 045074 032737 100000 002660 5: BIT #BIT1S,RHDMCC ;SELECT BIT SET? 

7740 045102 001403 BEQ :NO, 

2741 045104 012737 000001 037134 MOV #1,SELECT WE NOW HAVE THE RIGHT TO TRANSMIT, IF HALF-DUPL 

7743 045112 032737 000040 037140 7S: BIT #RXM, PRE LAG ;READ DATA MESSAGE ? 

76h 045120 001071 BNE PRIN? NO, BRANCH 


7746 33SET UP TO READ IN DATA PART OF MESSAGE 


CZDCLB_DUP=-11 DATA COMM. LINK TEST 


CZ0CLB.P11 19-JUL=83 17:12 
7747 045122 tte le 000003 037052 
7748 045130 052737 000040 037140 
7749 045136 042737 000400 037140 
r730 045144 042737 140000 00266 
775 
eg 045152 023727 002660 001000 
7754 045160 00341 
7755 
7756 
7757 045162 105237 037100 
7758 045166 152737 000002 037101 
7759 045174 112737 000020 037070 
7760 045202 152737 000010 037052 
7761 045210 000443 
7762 
7763 
7764 
7765 045212 005737 037120 
7766 045216 001420 
7767 045220 1052357 037100 
7768 045224 001003 
7769 045226 012737 000377 037100 
7770 045234 152737 000001 037101 
7771 +045242 112737 000010 037070 
7772 ~4045250 152737 000010 037052 
re 045256 000412 
7775 ~=045260 013737 006470 011510 
7776 +=045266 013737 002660 011512 
7777 =045274 + 013737 002660 006472 
7778 045302 000413 
7779 
7780 
7781 045304 052737 000004 03714 
ores 045312 052737 000100 03705 
7784 045320 005037 037146 
ore? 045324 042777 000120 144116 
7787 045332 012602 
7788 045334 
7789 045334 
7790 045334 000002 
7791 


33 


1 15 


MACY11 30A(1052) 20-JUL-83 13:19 PAGE 191 
RECEIVER PROTOCOL INTERRUPT ROUTINE 


BIC #BCCOK'BCCBAD,PRSTAT ;CLEAR FLAGS (USED IN PROTOCOL CODE) 
BIS aRXN, PRFLAG 3SET DATA MESSAGE READ FLA 

BIC #BCC,PRELAG * CLEAR tne CHECKED FLAG(USED BY THIS ROUTINE) 
BIC weitis taints. RHDMCC :CLEAR SELECT & QS BITS 


331S ALLOCATED BUFFER SPACE LARGE ENOUGH FOR MESSAGE? 
CMP RHDMCC #512. sWILL MESSAGE FIT IN ALLOCATED BUFFER? 
BLE 10$ 3 YES BRANCH 


ZEMESSAGE TOO LONG !! LOG ERROR 
INCB _LBUFER ;LOG LOCAL BUFFER ERROR 
BISB § #MTLMSK,LBMASK :SET MESSAGE TOO LONG BIT 
MOVB § #MESLONG,REANAK :SET REASON FOR NAK 

BISB &#SNAK,PRSTAT | :SET SEND NAK FLAG 

BR PRINS STURN OFF RX & EXIT 


SEQ 190 


33 IF A NEW BUFFER IS AVAILABLE 
SET BUFF FER AND CHARACTER COUNT FOR MESSAGE 
ibs: ist RXPRC sNEW BUFFER AVAILABLE ? 


$ YES, 
INCB _—LBUFER SLOCAL BUFFER ERROR 
BNE les S OVERFLOW? 
MOV #377,LBUFER 3LATCH A 255. 
12$:  BISB #BNAMSK,LBMASK MASK 
MOVB © #BUFFNACREANAK :SET NAK REASON : 
81SB »PRST [SET "SEND NAK FLAG’ 
BR ? EXIT 
15$: MOV DVRXA.RMSGPT § ; MESSAGE BUFFER ADDRESS 
MOV RHDMCC,RMSGCC :CHARACTER COUNT OF MESSAGE 
MOV RHDMCC.DVRCC.  :TELL MAIN CODE HOW LARGE MESSAGE IS 
BR PRINEX EXIT 
:MESSAGE COMPLETE 
PRIN?: BIS #ORX,PRFLAG zSET MESSAGE COMPLETE FLAG(USED BY MAIN CODE) 
BIS #RXDPRSTAT [MESSAGE COMPLETE(USED BY PROTOCOL MODULE) 
PRINS: CLR TURNON :RX NOT ON 
BIC WRINTEN*RXENA,@RXCSR  —-: TURN OFF RECEIVER 
PRINEX: MOV (SP)+,R2 :RESTORE R2 
ENDSRV 


L10022: 
RTI 


J 15 


CZDCL8B DUP=-11 DATA COMM. LINK TEST MACY11 ao? 1052) 20-JUL-83 13:19 PAGE 192 
CZ0CL8.P11 19-JUL=83 17:12 CEIVER PROTOCOL INTERRUPT ROUTINE 


SEQ 191 


-SBTTL PROTOCOL TRANSMIT ROUTINE 


;++ 

33 FUNCTIONAL DESCRIPTION: 

; THIS ROUTINE IS ue TO SETUP EITHER CONTROL MESSAGES OR 
DATA MESSAGES FOR TRANSMISSION. 
a SEND ACK(SACK) IS SET AN ‘ACK® MESSAGE WILL BE SETUP 


RANSM ° 
IF THE SEND NAK(SNAK) IS SET A ‘NAK*® MESSAGE WILL BE SETUP 
AND _TRANSMITT: 
ELSE A DATA MESSAGE iu BE SETUP AND S 


ENT 
IF THE NETWORK HALF~DUPLEX THEN REQUEST TO SEND(RTS) WILL 
BE ASSERTED BEFORE TRANSMISSION. 


037052 TXPROT: MOV PRSTAT, IMPRSTAT nor A COPY OF FLAGS 
000100 B #PRORUN , PARAM PROTOCOL RUNNING ? 


7$ BRANCH 
000003 MP #ACTMODTYP ZNO -BRA MODE? 


BNE 3NO,BRANCH 
037126 5$: TXREADY 3 TRANSMITTER READY FOR MESSAGE ? 
BEQ 5$ 3NO,BRANCH 


self HALF DUPLEX OR MULTI-POINT LINK, WE NEED THE SELECT BIT 
BEFORE WE CAN SEND 


ESTEE 


037142 os: TST HDXMTP ZFULL DUPLEX AND PT TO PT ? 
7 YES, BRANCH 


BEQ 8S 
037134 6$: TST SELECT 30K TO SEND ? 
Bs YES, BRANCH 
042104 CALL § RXPROTO 760 WAIT ON SELECT BIT 
BR 6$ :TRY AGAIN 


DETERMINE WHAT TO SEND 
037136 037052 &: IMPRSTAT PRSTAT ;RESTORE ORIGINAL FLAGS 
037065 002652 Move BN, HDMA iSeT TRIB ADDRESS 
001000 006602 ap THIS BIT USED IN TX INTER ROUTINE 
037126 SMITTE 


037134 SELECT z1F HALF DUPLEK/TP MODE 
000004 037052 | cial SEND ACK 


BNE 
000010 037052 #SNAK ,PRSTAT 
BNE BRANCH 
037052 BIT #SSTART,PRSTAT HE St START ? 
037052 81 #SSTACK ,PRSTAT s3EN6 STA CTART ACKNOWLEDGE ? 
037052 #SDATA,PRSTAT + SEND DATA MESSAGE ? 
BN 100$ + YES, 
FATAL ERROR 


33 SETUP TO SEND AN *ACK* 
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CZDCLB_DUP-11 DATA COMM. LINK TEST MACY11 30A(1052) gone 13:19 PAGE 193 
CZ0CLB.P11 19-JUL-83 17:12 PROTOCOL TRANSMIT ROUTI 


900020 2 108: #TXM,FLAG zSEND HEADER ONLY(USED IN TX INTER. ROUTINE) 
00000 264 MOVB § #ENQ,HDMID : CONTROL RESSA AGE 

000001 MOV #ACK.HOMTYP AGE 

14 646 wei tisiBiri4, womiven Sere SELECT % QS FLAG 

03714 sHALF DUPLEX OR MULTI = POINT 


NO, BRANCH 
037122 TANY THING TO SENT ? 
BNE 3NO,BRANCH 
[PROTOCOL RUNNING? 
#B81T15,HOMTYP 5 CLEAR SELECT BIT 
#1, SELECT HAVE SOMETHING TO SEND, SO KEEP THE LINE 
R, HDMREP iSET RESPONSE NUMBER 


H FILLER 
037052 #SACK ,PRSTAT SCLEAR SEND ACK FLAG 
BR 2008 ;GO0 SEND IT 


SEQ 192 


VIUMVIUIMAUIUIVIVIUIU 
SELLS SE SS 


SERLREREELLELLEE ; 
RESESS 


3 


SETUP TO SEND A "NAK* 
2 bis: BIS #TXM,FLAG sTELL TX INTERRUPT TO SEND HEADER ONLY 
002645 MO #ENQ,HDMID : CONTROL MESSAGE 
002646 MTYP :9 
002647 MOVE REANAK , HDMTYP+1 “REASON FOR NAK 
902646 55$: weirs! BIT14,HDMTYP ; SET SELECT & QS FLAGS 


sFILL 
002650 MOVB HDMREP [LAST MESSAGE RECEIVED CORRECTLY 
037052 GSNAK-PRSTAT sCLEAR SEND NAK FLAG 
200$ ;GO SEND IT 


PERRERRE 
Piet gS Si 


R 
Ww 
= 
=) 


SETUP TO SEND | START MESSAGE 
ibs: BIS aTXn, ae LAG TELL TX INT. ROUTINE TO SEND HEADER ONLY 
MOVB TROL MESSAGE 


DMID 

asiate HDMTYP START MESSA 

#BITIS!BIT14, wai’ SET Sereer & QS FLAGS 
HDMREP FILLER 


BYYYVVVs 
ARRAIVS 
MNOAWSLAO 
Seances 

Coo 
mowu 


3 
: 


HDMNUM sFILLER 
000 037052 C WSSTART,PRSTAT ;CLEAR ze START FLAG 
BR 200$ 360 SEND I 


-: SETUP TO SEND STACK MESSAGE 
70s: BIS #TXM, FLAG sTELL TX INT. 10 SEND HEADER ONLY 


#ENQ,HDMID CONTROL 
WSTACK,HOMTYP START ACKNOWLEDGE MESSAGE 


006602 
002645 
7 002646 MOV ; 
0000 002646 pe AES B1T14,HDMTYP sSET SELECT eos FLAGS 
HDMREP FILLER 


RRR KELRFESE 


HDMNUA 

037124 MOV #=1,A 

037052 SSSTACK  PRSTAT 
BR 200$ 


eosonuow 
mrnow 


sFILLER 

ZSTART HAS BEEN ACKNOWLEDGED 
7CLEAR SEND STACK FLAG 
360 SEND IT 


SETUP TO SEND DATA 

ibos: BIC #TXM,FLAG :TELL TX INTERRUPT TO SEND HEADER + DATA 
MOVB #SOH,HDMID :DATA MESSAGE 
MOV DVTCC HDMCC S CHARACTERS COUNT 
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CZDCLB DUP-11 DATA COMM. Li MACY11 30A(1052) a 5 13:19 PAGE 194 
CZDCLB.P11 19-JUL=83 17:12 PROTOCOL TRANSMIT ROUTI 


052737 00264 #B1T15 :B1T14, HOMCC sSET SELECT & QS FLAGS 
113737 »HDMREP AST MESSAGE RECEIVED CORRECTLY 
AIS S MESSAGE NUMBER 


HOMNUM if 
1 :G0 SEND IT 
GO SET SREQUEST TO SEND’ 
004737 5608: PC,CTSSR :G0 SET REQUEST TO SEND 
052737 004000 ais WFIRST,IMFLAG :TELL THE CTSSR SUBROUTINE TO SKIP DELAY 


:: SETUP TO TRANSMIT HEADER PORTION OF MESSAGE 
012737 00 310$: MoV #HDMID,MSGPTR ; 
000006 MOV 6 MSGCC 


#6,MSG ; Cc 
MOV #20, SYNCC sNUMBER OF SYNCS TO TRANSMIT 
33 SEND THE DATA 
TST 


SEQ 193 


FHDPLX 3FULL DUPLEX? 
BNE 1 3 YES, BRANCH 
143300 hy #SEND!TINTEN!HDPLX.@TXCSR sENABLE FOR HALF DUPLEX 


143270 215$: BIS #SEND!ATINTEN,@TXCSR = ;TURN ON TRANSMITTER 


sr1F ACTIVE MODE, TURN ON TX AND GET OUT IN A HURRY 
t: NOTE: START UP SEQUENCE OPERATES LIKE HALF-DUPLEX 


037142 2178: is HDXMTP sFULL DUPLEX PT-PT? 


220$ 3NO,BRANCH 
000003 #ACT MODTYP sACTIVE MODE ? 
220$ 3NO,BRANCH 


TXPREX sEXIT 


TRAP 
037126 TST TXREADY 3TX FINISHED ? 
BEQ 220$ 3NO, BRANCH 


IF HALF-DUPLEX OR MULTI-POINT REQUEST TO SEND WILL BE DROPPED 
5$0$: JSR PC,CLRRTS sDROP RTS IF HALF DUPLEX 


TXPREX: RETURN sWE ARE DONE ! 


037010 


- EVEN 
ENDTST 
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CZDCLB_DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83_ 13:19 PAGE 195 
CZDCLB.P11 19=JUL=83 17:12 HARDWARE PARAMETER CODING SECTION 


7958 ~SBTTL HARDWARE PARAMETER CODING SECTION 


ot 
+ 


THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


GNHRD 
“ -WORD L10023=LS$HARD/2 


DEVICE INDEPENDENT SECTION 
DPLX,0,1,YES 


-SBTTL DEVICE DEPENDENT SECTION 
CSRADR,2,0,160000,177776, VES 


VECTOR,4,0,300,776.YES 


IM 
TSHILIM 
TSCODE 
RNODM 


RNODM,14,1,YES 


ENDHWL 


TSCODE 
PTPMLP,10,1,YES 


TSCODE 
PTPMLP 
ENDHWL 


TSCODE 
TRIBNQ,12,D,-1 ot 255. -YES 


TSCODE 
TRIBNQ 


TSLOLIM 
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SEQ 195 
CZDCLB_DUP-11 DATA COMM. zi NK TEST MACY11 30A(1052) 20-JUL=83 13:19 PAGE 196 
CZDCLB.P11 19=JUL=83 17:12 DEVICE DEPENDENT SECTION 
8014 046306 000377 «WORD TSHILIM 
8015 046310 ENDHWL: ENDHRD 
8016 -EVEN 
8017 046310 L10023: 
8018 
8019 eNLIST BEX 


sDEVICE INDEPENDENT QUESTIONS 
046310 052506 046114 042040 DPLX:  .ASCIZ /FULL DUPLEX OPERATION : / 


sDEVICE DEPENDENT QUESTION 


341 104 053105 041511 CSRADR: .ASCIZ /DEVICE CSR ADDRESS : 
046367 111 052116 051105 VECTOR: .ASCIZ /INTERRUPT VECTOR ADDRESS: / 
046422 042522 047515 042524 RNODM: .ASCIZ /REMOTE NODE "‘ITEP*':/ 
046446 051511 052040 044510 PTPMLP: :ASCIZ /IS THIS A MULTIPOINT Y mimes / 
046504 042101 051104 051505 TRIBNQ: .ASCIZ /ADDRESS THIS STATION:/ 
LIST BEX 
8020 -EVEN 


B 16 
CZDCLB DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 20-JUL-83 13:19 PAGE 197 
CZ0CLB8.P11 19-JUL=83 17:12 DEVICE DEPENDENT SECTION 
3SBTTL SOFTWARE PARAMETER CODING SECTION 


OFTWARE PARAMETER CODING SECTION yer: MACROS 
+ I LD P- THE 


MACR EXECUTED A 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


BGNSFT 


ENDSFT 


:” TEMPORARY PATCH AREA’ =" FOR’ DEBUG’ PURPOS 
SPATCH: 
-BLKW 30 


LASTAD 


LSLAST:: 
ENDMOD 


~ END 
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CZDCLB DUP=11 DATA COMM. LINK TEST MACY11 30A(1052)_ 20-JUL=-83_ 13:19 PAGE 199 
CZ0CLB.P11 19=JUL=83 17:12 CROSS REFERENCE TABLE -- USER SYMBOLS 


037061 7454 7396*  7465* 
2984 
ae ae aus re 
scone 530 5383 5636 6998 7298 7475 7815 
5095 


ooo°0-o 
BRAGA 


PUPP PIPPI 
S3Sss 
0090 
Y ona = 


Roo 
N=OOM 


5 
3 
5 
3 


wet 
mon 


53834 
9 


53934 
5295 5298 53004 
5282 = 528 9# 


5321 5325# 


MMUSUSESSS ES ES 
RISSSa z 
Wwron— 
SUSIE oS 
Qaa“Velea 


Moron 
PAA AAAAGIMNAAT 


SRAASUSSSSS 
Ww 

Couw 

=n 

Rez 





D 16 


NK TEST MACY11 30A(1052)_ 20-JUL-83_ 13:19 PAGE 200 
CROSS REFERENCE TABLE == USER SYMBOLS 


CZDCLB_DUP-11 DATA COMM 


el 
CZ0CLB.P11 19=JUL-83 1 


— 


mn — 
moc rw 


—6-OmMlo uu 
ome Oeo 


SEGon 
row 


ee 


So 
ars 
oO 


7 
5 
5 
5 
5 
5 
5 
5 
5 
5 
P) 


090 
9694 


6475 6590 7163 77200 3=7728—S 7749 
7747 


6833 6836 6856 


ae 


AAAAAAAAAACG 
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CZDCLB DUP=11 DATA COMM. LINK TEST MACY11 30A(1052)_ 20-JUL-83_ 13:19 PAGE 201 
CZDCLB.P11 19=JUL-83 1 CROSS REFERENCE TABLE <= USER SYMBOLS 


6835 6857 


gf 8 


a 
Se 


oS 


7894 7906 
7853 7860s 7873s 7884 


MNS s Sewn 
co 


3 

eset 
= 

Slane 


ee ee ee ee 


AAQAAAAAAARHAAGAG ? 
CVeze 


nnnnnnnnnnnnnnn 
MIMIMIPONMINYD 
= 


s 
iS) 
= 
oS 
™ 
™ 
v4 
~m 


SNonononspoponoenw $ ororrrr wv 


~“ 
& 


714 

704 

694 

93" 

9 

9 
2 
2 
2 
r 4 
2 
4 
4 


b ~4 Winonoanonys 
wm 


5152* 


LIERR= 000000 
CLIEXI= 000001 
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CZDCLB DUP-11 DATA COMM. LINK TEST MACY11 30A(1052)_ 20-JUL-83_ 13:19 PAGE 202 
CZ0CLB.P11 19=JUL=83 17:12 CROSS REFERENCE TABLE -- USER SYMBOLS 


892 §= 295 
84 84 
885 
9 
50. 


4585 4808+ 


5031* 5146* 


5026* 
5686 
5635* 


CTSS3 036646 





G 16 


CZDCLB_DUP=11 DATA COMM. LINK TEST MACY11 30A(1052)_ 20-JUL-83_ 13:19 PAGE 203 
CZ0CLB.P11 19-JUL-83 17:12 CROSS REFERENCE TABLE == USER SYMBOLS 


66524 

66684 
4022 4843% 4849 4985« 
3981 3 4018 4023 4034 
5289* 


$B PSeRE 


6111 6150 6314 6610 6654 6672 


4568 


SEEEEEEEEEEE 


EEEEEE 


6067 6105 6173 


wi 
Ww 
N 


1 
1 
1 
i 
1 
1 
7 
1 
1 
1 
1 
1 
1 
1 
1 
1 
j 
1 
1 
1 
1 
1 
1 
1 
j 


SEEEEEEESEEEEEEEEE 


SOPEN= 000034 
CSPNTB= 000014 
CSPNTF= 000017 3927 =—s_(« 33935 
5020 5120 
CSPNTS= 000016 3750 3758 
CSPNTX= 000015 
C$QI0 = 000377 
C$RDBU= 000007 


Wnuns— 
FESeE 
™ 

2° Bz 


—— 
= 


iii! 


CSREFG= 000047 
CS$RESE= 000033 
CS$REVI= 000003 
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SEQ 202 
CZDCLB DUP=-11 DATA COMM. LINK TEST MACY11 30A(1052)_ 20-JUL-83 13:19 PAGE 204 
CZ0CL8.P11 19-JUL=83 17:12 CROSS REFERENCE TABLE == USER SYMBOLS 
CSRFLA= 000021 19944 
CSRPT = 000025 19948 4494 
CSSEFG= 000046 19944 
I= 000041 19948 4683 4723 
CSSVEC= 000037 19944 4661 4671 4678 4870 6967 
CSTPRI= 000013 19948 . 
DATABC= 000002 68224 7572 7577 
ATAWO 006556 26834 6541% 6543* 545 
DATCKB= 000002 2708 4187 5349 5400 5485 5632 5681 5725 5902 5970 
DCD == 010000 4034 2751 6662 
Ck 000014 22914 3352 
DCLFLG 006564 26894 4522 4524 4944% 
= 000022 2 33 
DER = 000010 22894 3338 
DERIN 037076 67714 = «7235% = 7237* «= 7328% 7330* 7441 7443 
DEROUT 037074 6765@ 7565* 7567" 7574% 7576 
DEVI 007704 28064 3743* 3754 3762* 3764% 4159 4873 5198+ 
DEV2 007706 28074 3744 893753 39 35763* §=—35765* §=04162 0 48748 = 51998 
DEVS 007710 28084 3766* 4169 4875* 5200+ 
DEVS 007712 28094 3767* 4183 4187 4191 4196 4201 4876*  5201* 
DFPTBL 002130 G 21234 
DIAGMC= 1994 
DIVN91 034772 6147# 6152 
—E = 20 229 3356 
DLL 033570 2716 = 58734 
DLLCM 014130 307 5875 
DLLMOD= 33 2 2 
DMPE = 53 23 2895 
DMPQ = 000054 23814 2897 
DMPS = 000052 2379# §=2893 =: 4938 5207 
DMSGAD 002172 24584 4026 
DMSGCT 002150 24454 4025 
= 000004 2504 5317 6087 
DPLX 046310 7979, =8019# 
DPV. = 000000 22814 
DSCA_ = 100000 24314 
DSITEN= 000040 24154 6248 6596 7171 
DSR = 001000 24024 2750 
DTR = 2 2412# 6 6668 
DUMEX 023264 3938 = 59444 
DUMPSR 023130 39094 
DUM1 023222 3919 39304 
DUM2 23244 3929. 39374 
DUMS 023160 39184 3942 
DUM4 23134 39108 3941 
DUPPAR 011470 5429* 54352* 6115 
DVEMO 16747 307 6061 696 
DVEM1 017026 3070# 6680 6688 
DVEM2 017110 3070# 6320 6328 7531 7539 
DVEMS 7205 3070# 6440 6446 
DVEMG 01 ie 30704 6460 6668 
DVEMS 01731 3070# 6167 617 7513 7521 
DVEM6 017377 070# 6099 6107 
DvI_ = 000012 2904 3343 
DVINEX 035130 6089 6117 6119 6121 6148 6160 61804 
DVINIT 034306 5435 60464 6071 6178 
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CZDCLB_DUP-11 DATA COMM. Link TEST MACY11_ 30A(1052)_ 20-JUL-83_ 13:19 PAGE 205 
CZDCLB.P11 19=JUL=83 17:1 


CROSS REFERENCE TABLE -- USER SYMBOLS 


5996* 5997" 6241*% 6478*  7777% 
5658* 5659 5729% 5786 


5996 86239 6476 775 
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CZDCLB DUP=-11 DATA COMM. LINK TEST MACY11 30A(1052)_ 20-JUL-83_ 13:19 PAGE 206 
CZDCLB.P11 19-JUL-83 17:12 CROSS REFERENCE TABLE -- USER SYMBOLS 


EDTXQ § 015107 a4 0704 
FM11 0708 31 


7870 §=— 7882s 7892 


5424* arts 5765* 5778* 5821* 5851 6065* 6103+ 
7596 


7614 7620 87625 7629. = 7633# 
73320C~Ci7 7423 74311 7445 75054 


6447 6689 7522 7540 


5672 6335 
5929 6341 


3804* 3810 
3805* 3809 
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CZDCLB_DUP=-11 DATA COMM. LINK TEST MACY11_ 30A(1052)_ 20-JUL-83_ 13:19 PAGE 207 
CZDCL8.P11 19-JUL=83 17:12 CROSS REFERENCE TABLE == USER SYMBOLS 


3823* 


7921 

5622 5654* 
6127* 6141* 
6338 6341 
6551*  6555* 
7881* 7891* 


g 


19944 
19944 
19944 
sere 


BS 


FSCLEA= 000007 
FSDU_ = 000016 
FSEND = 000041 


P 
w= 
NO 


EEEEEEE 


BZBVVerzeee 


FSSW = 000014 
FSTEST= 000001 
GETCL 026764 
GETPRM 025714 


GETRCL 020640 
GLINC 044632 


a at ss ss ts 


Seeeererre 


aw 
x4 
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CZDCLB _DUP=-11 DATA com. 7h ik TEST MACY11 30A(1052)_ 20-JUL-83_ 13:19 PAGE 208 
CZDCLB.P11 19=JUL=83 17:12 CROSS REFERENCE TABLE <= USER SYMBOLS 


5763* 


5618 


5949 
53984 


7998 =©80046 §=—s_:- 8010 
7998 8004 8010 


df 


ss: 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


é 


BRRRESR 
Ww 
22 


MIMI) 
~ 
RE 


7883+ 7893* 


ye ny gh ae hh oh oh oh oh 
™~ 
eRe 


Cox 
wry py at 
—— 

= 








CZDCLA DUP=-11 
CZDCLA.P11 1 


sssesssss 
PEERS SEES 


Nm 
_ 


ME 
MESDAT 
MESL 
MGLCNT 
MHRCNT 
MLTYP 


MOBITE 


MODES 


aaAgD 


So 
par 
“J 
ye So 
VNU = 


MMLOVES 


037260 
0000. 

011516 
011520 
006572 


007574 


003102 


“B82 18:19 





ATA COMM. LINK TEST 


2086 


44844 


80014 


44684 


44484 


PADEAG & 


_ 
No 


MACY11_ 30A(1052) 


20874 


78994 





8 1 


23-MAR-82 16:47 PAGE 209 
CROSS REFERENCE TABLE -- USER SYMBOLS 


3616 


ue 


1* 
2e «652918 7* 


3627 = 68778 


5339* 53418 


5343 


SEQ 207 


5345 


c 1 


SEQ 208 

CZDCLA DUP=-11 DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 210 
CZDCLA.P11 1D-MAR CBO istis CROSS REFERENCE TABLE -- USER SYMBOLS 
Ree Be ep 
MODS 5 84 nt 61708 617s its S3ere 3 5 sor rgsts 

TYP 5 5 4819* 483 1 67* ® 5275% 5278% 5281% 5284* 5287* 5300 

_ ° ha 4 5600 5616 368 59i2* 865 A 6051 6954 338) 3288 385 7881 
=e 007574 rd 863 
rose = G00086 Stat Saas 
mes see ue 
0 013663 56 0354 
04 0136 § 568 0354 
me Ban a5 ee 
MPPT: take y $635 $3 67674 6928 6939 

SCMS 014764 $6ace 789 
MSGCC O15 0E 29844 6108* $260e Se67* 6503 6510" 6517 6567* 7864" 

IM= 1 2064 2594 259 2596 4069 4936 4978 

GPTR 911300 25834 6107*  6259% 6265* 6506 6508* 6516*  6566*  7863* 
MSCIRU O14a54 ous to 
MSGTYP 006516 26304 3985 4803* 4815% 5134% 5213*  5237% 5239% 5241% 52432 5245% 52472  5250« 
riche SONS HEN, RK ae 
mele Bless, 2S 2a 
msec | 000756 ie ae 
MSG S44 riz 2427 24404 
nf nn ad 
MSG5 002320 stie 2429 24564 
MSGSC 0021 219 4804 4816 5135 5248 

G6 00241 41 430 24704 
MSG6C Oost64 4178 251 

G8 00264 2419 2432 24964 
MSG8C isda coi 

= 


ca 
o 
= 
OW 
~ 
z 


MYDATA= 001 68224 71 7201 733 7355 7659 7684 
057060 o70ce 7245* rete rig 
= 2 re 3th 7221 7818 
00 68214 7 7497 
NEW 025706 4514 4579% 4583 
36 aee8 2 5294 5297-328 
NOC 14234 L}) Ae) 
7714 54 
NOD1 0077, 
pin} Be 6 3 
NOD1 106¢% 8754 
NOD101 0106 {hd 
ond 10644 ; # 
NOD 10. 10650 794 


SEQ 209 


23-MAR-82_ 16:47 PAGE 211 


CROSS REFERENCE TABLE -- USER SYMBOLS 


MACY11_30A(1052) 


NK TEST 


Ll 
19 


18: 


11_DATA COMM 
19-MAR=82 


CZDCLA_DUP- 
CZDCLA.P11 





BsS2ID ISSA ILABASSADIIIISSISRADSABSSAATSABADNISAIAS= ST? 


Sere K Ore KK NNNNONW Lt | lt) lt] my 
PESELASRERASAGAAAAAALA SAT ST AS 


SSE8S8SS5 


ad ek mak cach mak maak mech meh mel, eh, meh, eh, eel, meh, meh, meh, eh eh, dh, ee, eh, eh, me eh, eh, eh, seh, sah, seme, mee, meh, eh eh sh meh, sh, sh, meh mh mel el el sh mel al 


CGOSOSCSCOOOSCSOSOSOOOSOOSSOSSOSOSESSOSOOSOSOOGEGSEOOESESESSEEOESEEEEOESSOSoSSO 


nor OF VM aTnor. eM TNO SAUMTAO® COeVuMw~Trn = COUP FUAOR. - wr 
ek eal auak peel geek seal sek geek seal seal geal geal gel sel el gel sd Cl sual puck suck suk seek suk seek such uel se seh Seek Sane Snel Sah Sel Se 


BESMONSYLYLNLONYY BNLNNEN ORI AS BRECK SON GNSS S 
~ COOCCOCSCS eK oer Kerr erereee mcucucuNuCuNoruCuCY mn) MYM FT 


ow 
a) a) 
SS S 


: 4 


SEQ 210 
CZDCLA_DUP=11 DATA COMM. LINK TEST MACY11 30A(1052)_ 23-MAR-82_ 16:47 PAGE 212 


CZDCLA.P11 19-MAR=82 18:19 CROSS REFERENCE TABLE -- USER SYMBOLS 
NOD1 011432 9478 
NobIS? 01 1036 9484 
NOD1 01 073 8108 
NOD170 01144 9498 
NOD171 01 1638 9544 
NOD1 Le: 0210 

1 0210 61 
NOD174 02104 624 
NOD175 os! 044 6 
won 7e 021060 34644 
NOD1 021 34654 
NOD2 007724 27978 
NOD20 01 28114 
NOD 021076 34664 
NOD201 021100 4th 
NOD202 021112 684 
NOD203 021114 34694 
NOD. 021134 704 
NOD205 021140 714 
NOD. 021144 724 
NOD207 021160 34734 
NOD21 010074 28124 
NOD210 021162 34744 
NOD211 021176 34754 
NOD212 021200 34764 
NOD215 021216 34774 
NOD214 021222 34784 
NOD215 021226 stone 
NOD216 0212 804 
NOD217 021232 34814 
NOD22 010100 28134 
NOD2S$ 010112 28144 
NOD24 010116 28154 
NOD25 010120 28194 
NOD26 010124 28204 
NOD27 010140 28214 
NOD 007726 144 94 
NOD3O0 010144 74 
NOD31 at 0162 $85 
NOs 10166 25244 
NOD3$ 01 6596 28254 
NOD34 010210 8264 
NOD35 at 0548 8274 
NOD36 102 8284 
NOD37 01 54 $8 Lf 
NOD4 007742 7998 
NOD40 01 oe 8304 
NOD41 010 8314 
NOD4 10304 8324 
NOD4 10310 $ 
NOD44 10368 
Noss, O10344 8360 
NOD4 10350 8404 
NODS 7744 8004 
NODSO 010354 8414 


F 1 
CZDCLA_DUP=-11 DATA COMM. LINK TEST MACY11 30A(1052)_ 23-MAR-82 16:47 PAGE 213 


SEQ 211 





CZDCLA.P11 19-MAR-82 18:19 CROSS REFERENCE TABLE -- USER SYMBOLS 
NODS] 010376 Bien 
NOD52 010400 84 
NOD53 010424 8448 
NOD54 0104 8498 
NOD5S 0104 8508 
NOD56 01045 8518 
NODS7 010454 8528 
NOD6. 007760 8018 
NOD60 010474 8534 
NOD61 010500 8568 
NOD62 010904 8578 
010510 8584 
NOD64 010514 8598 
NOD65 010520 8608 
NOD66 010524 8618 
NOD67 0105 8628 
NOD? 77 28028 
NOD70 010534 
NOD71 010540 28668 - 
NOD7e 010944 28678 
NOD73 010550 28684 
NOD74 010562 28698 ne 
NOD75 010566 28708 
NOD76 010602 28718 
NOD77 010606 28748 
= 000000 22198 
NOTNUF= 000050 23424 2806 2809 2810 2820 2859 2861 2867 2922 
NULEVT 015515 3035¢ 9 
NULL = 23024 
NUM = 000014 23148 2930 
N10$ 007720 27958 
N100$ 010350 2809. 2812 28394 
N102$ 010354 28404 
N104$ 010400 2841 28424 
N110$ 010426 2814 28484 
N111$ 010432 284 
N112$ 010454 2850, 28514 
N114$ 010544 
N115$ 010540 2823 2825 «2827 «S829 «Ss «2831S 2834 «= 2836 = 28654 = 2871 «Ss 2875S «2877 Ss «2881 (886 
39 2940 2942 2944 2949 
N116$ 010562 
N117$ 01 2869 2870 28734 
NITES 0106 2874 28754 
N119$ 010650 2876 287 
NIZ0§ 010734 285] 2835 28914 
NigI$ 011220 896 2898, 2900 29022904 «2906 29082914 = 2920H = 2931 
Nizes 011250 2 9244 
NISSS.  O11e66 a9" 1 2863 2867 2910 2922 29530 
36s Brier 3, 5986 39Be 
NI 010676 880 28814 
N131$ 010736 885 28878 
1 010714 879 28848 
N140$ 011304 889 29334 
NIGIS 011510 39 
N142$ 011336 29384 





G 1 





SEQ 212 
CZDCLA_DUP-11 DATA COMM. LINK TEST MACY11 30A(1052)_ 23=MAR=82_ 16:47 PAGE 214 
CZDCLA.P11 19-MAR=82 18:19 CROSS REFERENCE TABLE -- USER SYMBOLS 
N143$ 011356 39 
N144$ 0114 941 
N150$ 0114352 883 
N38 910100 ati 
010116 810 28144 2819 2820 2821 83 835 840 2843 849 2852 2858 
860 2882 888 8 282 2912 3535 3529 930 2934 3543 2947 = 2948 
N40$ 010036 806 
NG 007726 796 
NG 007744 798 
N44$ 007762 800 
N45$ 010000 802 
010016 04 
NS5O0$ 010500 807 
N51$ 010504 28564 
N52$ 010510 28574 
N60$ 010760 28944 
N61$ 011000 $399 28964 
N62$ 011022 897 8984 
N63$ 011042 2899 004 
N64$ 011062 2901 29024 
N65$ 011102 2903 29044 
N66$ 011122 2905 
N67$ —s_« 011142 2907 = 29084 
N68S$ 011166 2909 soit" 
N70$ = 011172 sole’ 917 
N71$ 011202 291 29144 
N72$ =©011206 29154 
N73$ =: 011216 2916 = 29178 
N80$ 010120 2805. 28184 
N81$ 010124 28194 
N82S$ 010166 28222 
N83$ 010210 2824 28254 
N84$ = =—s_« 010232 2826 = 2B 27 # 
N85$ 010254 2828 te 
N86$ 010304 2830 8314 
N87$_ 010332 833 34a 
OFSET 006532 6374 3043 5720* 5737* 
OPBFPT 002514 rt 5963 
902520 $3) 24 5223 5867 5874 5882 5888 5889 5907 5909 _- $941 5942 5968 
OPCNT 002166 4184 5221* 5886* 5890 5891 
OPEND 264 4914 5869 
OPRIM 1406 354 5876 
000015 3154 2912 
00650 6214 4694 5386* 5813 6141* 7472+ 
OTINT = 00000 red 
03707 green 7517* 7526* 
OUTVEC 011464 9H 4610* 4611" 4641 
TS= 000000 19594 2005 
= 1 19594 19728 2037 
OSBGNR= 1 19594 1972# 2031 
OSBGNS= 1959# 199 
OSERRT= 000000 19598 2oap 
= 
Sw= 000000 19594 $001 





H 1 


CZDCLA_DUP=11 DATA COMM. LINK TEST MACY11_ 30A(1052)_ 23-MAR-82_ 16: The es 215 
CZDCLA.P11 19-MAR=82 18:19 CROSS REFERENCE TABLE -~- USER SYMB0 
OSPOIN= 1 19594 19728 6063 
OSSETU= 000000 1959" 1991 999 
PAD = 001 2814 6105 54 4 6519 $368 79 
PARAM 006576 ah 51 561 it 4837" 4841 516 3239" 
449e 5563 5577 32 0 3351 3 564 89 
goes $79! 6914 ore 122 223. 723 7237 
408 7456 7617 760 7805 
PARCSR 011452 2# 4600* 2981" 6079* 
PAS = 134 5270 5300 16 5633 
PASC = 000042 364 2948 
PASMOD= 0000 74 824 
PCADD 006562 6 
PCK 014014 354 4151 
PCLKCT= 001600 22508 4539 
PCLKEN= 000111 22 4541 
PC 014655 0354 
PEC 014024 354 4155 
PLCK. 032302 679 54734 
PLCK2 032302 54744 
PLCKS 03231 5476 
PMS 1403. 30354 4165 
PNCK 014012 30354 4154 
PNEC 014022 30354 4158 
PNMS 014031 30354 rt | 
PNPR 014041 soee 416 
PNST 014001 354 4150 
PNT = 001000 G 1924 
PPR 4043 0354 4160 
PRFLAG 037140 67704 7118* 7165* 76C2 7676* 7691 7696* 7697* 7729s 
I = 002000 G 1934 
1BB 021670 5944 6860 6861 6862 6863 6864 6865 
PRIBS 021 O7# 6866 6867 6868 6869 6870 6871 
PRINEX 0453 7643 7667, 07679) 7726 77358 
PRINI 044 7633, 76364 
IN2 044572 76278 
PRINZ1 044656 7618 7620 7622 7624 #76414 
IN4 044740 7646 7659# 
PRINS 045046 7671 76814 
PRIN6 045022 766 76764 
PRIN? 045304 769, 7721 77298 
IN8 045320 765 7673 = 7709's 77328 
PRIW 021642 5834 6857 6858 6859 6872 
PRIOO = 000000 G 1814 4647 
PRIO1 = 000040 G 1804 
pals = 000100 G 1794 
PRIOS = 000140 G HA 
PRI04 = 000200 G 1774 
PRIOS = 000240 G 176@ 4632 4639 4831 6919 
pais = 000300 G 1754 
ee a er ee 
= 
PROEND 037114 § 604 099 
PROF DX 1526 5 70414 
PROHDX 1 6951 700. 
PROINT 041 69 70954 
PRORUN= 000100 2240# 483 6914 6944 7223 7235 7237 7265 7291 


36° 
7591 


7317 


5309* 
7298* 


7401 


5327* 
5934* 
7317* 


7408 


7401 


7456 


SEQ 213 





I 1 


SEQ 214 
CZDCLA_DUP=11 DATA Con LINK TEST MACY11 30A(1052)_ 23=MAR=82 16:47 PAGE 216 

CZDCLA.P11 19-MAR=82 18:19 CROSS REFERENCE TABLE -- USER SYMBOLS 

7760 8§=7805 
PROTEX 1674 97 978 6998 7024 7037 = 70724 
PROTO = 1 3354 80 
PROTOB= 000040 ¢ 61 4161 5325 5563 5577 5897, 5949 = «6084 

TOC 902e 5956* 69094 
PRSTAT Os7032 : $39 ene 937* 6941% 6961 6984e 7013* 7031* 7064* 7097 711 7119* 7168 
176 183 185* $ : 7315* 7322 


Ole 7 $ 7207 oee6e 7228* 7270* 7278 reo" 
5 7377 = 7386 7497 7649" 7659 
7672* 7681%  7684% 7695* 7708* 7720* 77308 7759 7777 7782 38e 7786 = 7788 


7 781i = 7823* 7834" 7845 
PRTEMP 037144 67728 
PRUN. 037130 7664 6935*  6946* 
PSCNT 504 6224 4695 5387* 5811* 5814 
PST > 014003 0354 AMT 
PTREND 006434 25974 
PTRTAB 006150 5948 84072 8940770 =— 4797) — 4934 2160 5127 5378 
PTR135 && 5954 4801 4976 5104 5114 5379 
PTR23 5 380 
cT 5824 83428 4249 4872s 
003132 25804 3426* 4s 4870* 
NT_ 003140 25834 = 4346* 8984353 4415" 864422 = 4427 
PSEXIT 024364 4207. 42424 4266 4271 
003147 thd 33155 3431 3555* 4264% 4269% 4277 4328* 4371% 4858* 4875 5205* 5258 
PSNNUF 003146 $3 ? ais eee), 3497* 3538*  4859* 4884 5070* 5100* 5108* 5122* 5177 5264 
PSNUM 003142 3oae 3539 335! 3543 3545 3546 = 4341 «4.344% «043460 = 4347" = 4349" = 4353" = 43558 
4361* 5170 176 5197 5207 5209 5334 
003144 S854 4301% 4304* 4311* 4318 43551 4359 
PSTREE 003134 5814 3427* 4205 4871* 
PSTRV 024246 30 ashe" 4874 
PSTRS peaese rit 74 4215 4235 4240 
QcoPY = 1 231 ¢? 5 5192 
= 2269% 54 5477 = $503 5553 5586 §8=6_: 5618 5625 5636 5945 6197 6199 6302 
45 6554 6583 697 702 he 711 7729 
QTx = 000010 2708 5452 5503 556 561 396 563 644 5893 5911 6105 = 6111 6252 
t 54 $238 630 50 g 5 g 7 959 00 A's} 
QUALFG 003012 25314 oye 48735* 189 192 19 294e 529 5310* 5328 5331* 
QUALVL 003014 253 4957* 4999% 5186*  5209*  5210* 
7064 67128 7351* 735 7354e 7 7822 7854 
7103 74 7535* 7553 
RBUFER 106 674 7532* 875 7550* 7552 
70 71 7187* =7279% 7652" 7707" 7719% 7819 
REC = sa 
RE CMOD= 1 274 ¢ 3 
REM 7168 1* 7273 
REP = 84 
REPLOG 022 0 38 
RE ry 4 3 
REPORT 02061 4451 5096 
REPSEN= 7824 7279 
RERR_ = 100000 944 6 7645 
RESET = 000400 4 601 6 16 
RESFLG 006566 6554@ 4493* 4517" 4789 





BE Beales 
SEQ 215 


CZDCLA_DUP-11 DATA COMM. LINK TEST MACY11 30A(1052)_23-MAR-82_ 16:47 PAGE 217 | 


CZDCLA.P11 19-MAR=82 18:19 CROSS REFERENCE TABLE -- USER SYMBOLS Ci 
RESTRT 025646 $203, 4399 4542 4561 45704 
RHDADR 002664 5 7197 7682 
RHDMCC 002660 ; g 6099 6101 6123 6125 6132 = 6441 6442 7463 7687 7698* 7701 7724 0 
RHDMID 002657 S184 7120 7154 7163 7216 PC 
RHDMSG 0026 5174 $ 10 § 56 7117 PI 
00266 ogee $8 5 Pi 
REP goseos S21# 7239 724 734207411 
RHDTYP 00 5194 7221 7233 7261 7289 7313 7511" 7572 7521 7530 7539 7548 7557 
PEN 005052 5494 3509 PI 
RHLPTB 003036 5434 $20) 
013075 0354 aoe 
RHLP1 013133 2543 0354 
RHLP2 013155 2544 0354 
PS 013210 2545 0354 
P& 013241 2546 30354 
RHLPS 01 $503 sete sonee 
013336 330, ase 
RINTEN= ones a3t4 S83 6212 6447 6560 7124 7126 7733 
RMMASK 037105 67484 7544% 7562 
RMSGCC 011512 29884 6204% 6211* 6396* 6417* 6441* 6557" 7121* 7666* 7677* 7724* 
RMSGPT 011510 29874 03*  6210* 391 6393* 6418* 6440" 6556* 7120* 7661 7663* 7678*  7723* 
RMSTER 037104 67474 8 7541% 7543s 559* 7561* 
RNODE 011522 24 4613* 5394 6080 6200 6256 
046422 79664 
RNOTNF= 000006 23574 83469 = 33471 3476 
RPASS 006600 26734 3311 4821* 4840 4848 5101* 5165 5334* 5818  5820* 
RPERR = 000004 23554 3472 
RPEXT = 00000 Store $09, 3465 3516 
RPFUL = 00000 3564 74 
RPHLP = 000001 S352e# = 3461 63 3511 
RPLOG = 000003 Sees 67 521 
RPSWO = 000007 584 78 
RPT 022126 564 3705S 37250s« 3736 =—s «35752 0—Ss« 5766 =— 3782S 3806 
RPTAA 022176 6714 
TABO 022512 2769 = 37398 
RPTDCK 022642 2764 7694 
TDDE 022566 2767 7544 
RPTDER 022352 762 7074 
RPTDLE 022642 766 7684 
RPTDSP 09022 75 91 
RPTDVI 2 76 7278 
TEOP 02251 768 7404 
RPTIV 01340 0354 355 
RPTMSB 023016 3704 79 3805 38184 
RPTMSC 022716 765 7884 
TMSE 02 
RPTTXG 02 "3 ¢ ; 9 76 761 36934 
ci Si , ae ue ail 
RPT1 0221 
RTS = 9M 


as £900 5695 


ee 


RUN 
RXACT = 004000 





CZDCLA_DUP=11 DATA COMM. LINK TEST 
19=MAR=82 18:19 


CZDCLA.P11 
RXBUF 004150 


RXC_ = 80008 
RXCSR 01145 


RXD = 100 
RXDBUF 011454 
RXDONE= 


7 

RXTXTE 037110 
RXWAIT 042110 
R10$ = 0.71036 
ize. 091062 
R125$ $5199 
13$ 021100 
R14$ = «0021114 
20$ 021140 
R21$ 021162 
R22$ 021200 
F937 021230 
016603 

Sc 016636 
16625 


76 
270 


6984 


7008 
6273 


3477 
7315 


7013 


7026 
6499 


MACY11 30A(1052)_ 23-MAR-82 16:47 PAGE 218 
CROSS REFERENCE TABLE <= USER SYMBO 


3478 
7362 


7064 


7059 
6569 





6285 


7336 
74318 
7180 
7374 












. 7% 


CZDCLA_DUP=11 DATA COMM. LINK TEST MACY11 30A(1052)_ 23-MAR-82_ 16: aoe PAGE 219 
CZDCLA.P11 19-MAR=82 18:19 CROSS REFERENCE TABLE <= USER SYMBOLS 


SEQ 217 





















SEOP 3 Fd 3328 
SETET = 000060 OF 2909 4894 5261 
SETEXP= 000010 104 $2 4918 5182 5256 
SETTRN= 000011 3114 5 5185 
SHFO =: 014507 0354 414 
SiiF 1 014545 30354 4177 
SHMSG 013516 30354 5155 
SHOW = 00000 23044 e811 4916 5076 5109 5123 
SHTAB_ 00307. 25584 143 5149 
SHTEND 003101 25614 146 
SHTYPO 013552 2551 035, 
SHTYP1 013561 2551 0354 
SHTYP2 013566 2551 30354 
SHTYPS 013575 2551 0354 
TYP4 013600 2551 0354 
SHTYPS 013606 2551 30354 
TYP6 013613 2551 30354 
SHTYP7 013621 2551 30354 
SHTYTB 003052 25514 5154 
023714 3734 41244 4842 5167 
SIZE = 000012 Hd 2923 5189 5195 
sc 016660 0354 3334 
= 000010 68184 7176 7185 7278 7322 7377 7390 7568 7649 7708 7720 7784 7823 
= 000201 6799# 7851 
SPAREO 0371 67584 
SPARE1 0371 
SRD 


35604 
4148 5316 


$360 7124 7126 


SVCINS= 009001 


aa 
w 
on 
N 


Peete tetera ars 
QESSSIGNSHVS 


CZDCLA_DUP=11 DATA COMM. LINK TEST 
19=MAR=82 18:19 


WWIWIWIWIAWWIAIWININ 2 SS 
PRAAR WA OSSOSO 
NUPO SPO 
WMOMocoWWoo 


AOMNW 





Sooowuaooono 
‘Sco. co &— 00 
OOOO —wWwnN 

SOooooonooow 
USUNOO—Mf— 0 
woof QOSNVv0O-UIN— 


AIWINROPIND @ SWINN— 


tp Atty tat > + te ee 


IWIN NWNIWIAIAIRI PIN SN 
RWUINUNO GoW Ory 


&f——9O0oO 


ANN SESS SS 


Wo 


m1 


MACY11 30A(1052) 23-MAR-82 16:47 PAGE 220 
CROSS REFERENCE TABLE -- USER SYMBOLS 


Wenn OW 


i tt 
WORs 
WNW 


at 
Cocos) 


— ye tere 
Sieso nee ereree 
Soom PAno—kowo MOL VINW 


on 
w) 
S 


Won 


on 


— Oo NWI O 


SISAL 


SOS 
—NOUOO 


A VNO 
wooro 


WNoon— 


123 


Sew 
eo 


NUM = WINS ONIWONME NN 


WAI 


WN O00 CO NINN NAAM 
FOANL OL ONS HOUMNICW 


450 


BRS BWWWAAWW 


Ww 
oo 


3 


be Soto jto} +] 
CONN 
=~Wwn 


WWII AIA AAA AI AIR ION @ NWN 
oa 
& 


KP ee ta] 
—CO—Ounny 
£ouo-umno— 


IN WIAA AIPOPIND = NIIP NON 
=—OOoooo 
Ha LN 
Moov 


ae 


DRONNAHOO 


WWW 


NNO 


3775 


WWMM 


=—OOoo 
Sauue 


os 
a3 


3 


So 


oS 
ESES 


= 


: 
: 
: 


oO 
3 







ROR LOS“ ANS 
MBMOIMVOOVUIM 


teas 
SSWRISENSRSS 


Ww 
~ 
— 


PRL roy 
BINION 


N 1 
SEQ 219 


CZDCLA DUP=11 DATA COMM. LINK TEST  MACY11 30A(1052) 23-MAR-82_ 16:47. PAGE 221 
CZDCLA.P11. 19-MAR-82 18:19 CROSS REFERENCE TASLE << USER SYMBOLS 
SVCSUB= 000001 19598 
SVCTAG= 000001 1959 2114 $050 $065 30773091 $111 S151 52443425 «4uSB 45604657 
4673, «4709 «=«4730=S «782869 «BBO «8451 «6523s 7737~=« 78997964 
SVCTST= 000001 19594 768 
SYN | = 000226 259u 
SYNCC 011504 9854 G19 6268 GUST 4G" G5EBE 7865e 
SYNCW 011506 29868 58926 5897e 6493 
SYM= 01 1959 2115 $051 $064 3078 3092H S112 S152H S2KSH S41B 3425, Su2GH G4SoN 
4553) 4560 Ua6ia eben Lgran i70e 473i 4755" 4862 4869 ©4870" «5873 5880 
SBaiN GLS2" 65248 «738K 7900K «79658 
$1 025434 4508 45108 
$2 «98510 4526 45518 
$$ 09860 4336 5448 
«098626 4347 a8G3a 
: 087062 67094 7102" 7239 7245 «7266 «= 72KB* «-7342.=«=«73846~=i«7345~=~=«‘3KHC“i«é‘éBH#:«OC7HTT:7H13 
vole 418 2416e 7855 
TABEX 014315 503s" 4939-4981 
ia 8 3716h «$287 «$07 
TALCK 033614 5682 SB6sa 5 5910 
TALMOD= 3314 2835 
TCURAD 006466 3¢ 64B0S* 4808 «4950-4955 5130s 
TEMP 00653% G5BF 3285" $290 $2954 $2094 S505 s30ge 517" $5216 53250 55294 B5Bse 549 
75 BS7ee «83772 «387838858 Zo47e 394Be 3049 3987s 308Be 3994 4126 
2139 214? 41508 «4176 «= 4693e «S151e 518$ «S214 ©5215" 82195222 S60S* © S06e 
610 66168 « 6618 7096" 7101 
TEMP1 006536 2659 $oeu= S289 Sooke 5024 $407e 81g $5208 5240 55284 S5Bhe 5368307" 
138 4i33e 4137, Zisie 41548 $580" 65818 
TEMP2 006540 Gis $509 38108 3581 Ose 3615 3605 $9908 So9ze 5 4134 4155 
rath ant 4695" 8557" «58708 « 5594 5608 5609 5629" S697" SBlde 5889s 
5904" 594g 5957 6025 G0G5e GIST# 6284" 6374" 63778 + 6426 b642e 
0 76632 «74802 «76828 : 
TEMPS 006542 Z64le 3065 $104. S124 SSli# 5582 5609" S61Be 3621 4128" G1aze 4138 4696s 
59 55724 $5894 3995 O§ 5680 $69 ©5709 SB15* 5890s 59050 
Suge $058 E0174 GO2G4 GOG4e GISze 6285" 6569 © GS71 GAOL GhUSe G6KSE 7460s 
TEMPS 006564 giee $056 S105 $108 S5126 S54Ge S585 4160 G16e 4172 G4 57068 57198 
348 872 4) 581s 027" G65" GISS* E286" 6570 6571 40S GAzs : 
uble ashe 7482 72h 76 
Se 616sea16B® 1 
den 6512 
9 
3 ee $357" ere cO9ee toon 611 121 6275* 6279 6575 «—«G932e «6949 ©7156 
79 ; 58 its ae 7494 7ar 3s 7482s 
e97e $531 «7774 47780578 6621" 6627 6632" +6637 
epee 6 seeps 4571 
Ge ES BE ae ae 
i a es 
7018 ee sy 


3935 = 33946* 9 3948 3950" 47942 4920e 4921 4954 4961" 4962 4998 












B 2 
SEQ 220 
CZDCLA | 1th ATA C LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 222 
CZDCLA.P 1D-MARCRS iati3 CROSS REFERENCE TABLE -- USER SYMBOLS 
rie 37065 $6)6° 73668 67134 7096 7101* 7197 7682 7778 
TRVACT 4 42674 6263 4268 4273 4276 4296 4362 4385 4406 4430 
TRVALN 4 4 oe 
TRVALP 4224 43754 
ra ee 
TRVBRC 4 42548 462746 4279 4298 4372 4387 4408 4434 
TRVDEC 4 43014 
TRVERR 4 4 8 4 
et i 
TRVNOB 1 4 Sy 4 Bee 4297 4363 4386 4407 
TRVNUM 4223 4 
TRVOCT 4 : 4 t2e 
TRVSPA 14 4 42824 
TRVSTR 09 4 - 44128 
= 
TL « 485 1 
TTL ~ bos 500 ] e040 ooes 
TTOTCC Dogues 128 6096 4795* $930 4931 4954* 5126* 
0371 7. 69 7127* 732* 
TXACT = oot Sa 
TXBUF 31 


oe 
te 
Re 


8 § 2 






6043* 6048 6065  6110*  6273* 6286 


Lng ad te 5a 
= 
TXINEX 649 
TXIN 649 
TxXI 14 3 
Tx! 3h? 
TXING 
TxA = 275a rei¢ 28 78 7850 
Loan | 114 5125* 5 5451 5474 5499 





; 1 on 
me te le a ee ae. 


C 2 


MEPS 


Bo 


wP- : ¥11_ 30A(1052) 23-MAR-82 16:47 PAGE 223 
cHoCLAP " AMA oo issi9. a CROSS REFERENCE TABLE == USER SYMBOLS 
oe ie te i si" $08, SONY SRS, YY, YE, 
: 
i 4 # 79358 794 79454 79498 79518 79554 79578 
TERS: 68H i an ee ee ee ee 
TSEXCP= 000000 308 3425 45554 4560 48648 4869  5875# 5880 79354 7939 79408 7944 79578 
TSFLAG= 0 1 137 $430. $i9ee o5834 4725. 47458 4747 a8708 49114 
TSGMAN= 4552# 45614 48614 4 487 72a 875 58814 
tr wee Rl FG Gr SEAS A Bn 
TSLOLI= 000001 34304 233 4555@ 4558 48644 4867 58754 5878 79358 7937 7940# 7942 79578 
TSLSYM= 010000 ae rah 303) 306% 3078 $038 aig 3132 3245 4459 4658 = 4674 = 4710 
rao: tm wes mms pu 
TSNEST= 1 19614 $2194 gece 305 30544 30674 30778 708 # ou 
448 444 445 4% 4475#@ 44 46574 46694 4 
Au ie ne 36 304 setts 47528 476 e3see 64514 64 65234 76144 374 
gonege 19614 
’ 7# 8693077, «38930814 3091 31014 983111 31204 
semg 4 2190 sete. roth et a 2 ee teoce 657 ecge 4673 Ge8se 4709 
47198 4&4 3 418 = 475 476 $ 791 7949 55 
TSNS2 = 000010 63584 6451 652. 76144 7737 
fee | i 
TSSE 19594 
TSSuBN= Hb Eh od 47684 
TSTAGh= b10004 19594 Fg 3444 79368 7a ga8oe t 718 Es 3219# 44488 44688 44848 46698 
TSTEMP= 000000 4a 20734 2114s 30504 $5 74 an he 1314 i} Se 31 ise? 3 
fe oe oe oe a ie oe ee ee as ae 
Le dtd 79380 794 5a 3% 7a 800 
TSTEST= 1 19594 14 ad 
TSTSTM= 1 19594 4 03 fe $ 
. 1 7 
94 & 9 
Be i ie i 
mi 
m8 


ee ee 
TEELLEL 


a 
—~! 
wn 
: 
eh 
2S 
—s 
age 
ty 
oY 
FeaRSeaes 
&- 
a 
a 
™ 
SS 
+ 
oa 
~ 
S 


TSSAU_= 01001 

TSSAUT= 01 18 94 

TSSCLE= 01001 $708 
TSSOU = H 1 $f! 47 
TSSHW = 01 20864 21 





dD 2 





CZDCLA_DUP-11 alle COMM. LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 224 
CZDCLA.P11 1 “82 18:19 CROSS REFERENCE TABLE <= USER SYMBOLS 
TSSINI= 010012 &h 4657 
TSSMSG= 01 sete 30544 3063 30674 3077 30814 3091 
TSSRPT 1 1 prt 
= 
= 01 1 $2198 G358e 451 G4B9H 652376148 7737 
TSSTES= 01001 & og 4911 8$9 
0. G 4 
= G 1904 
TABL 610 5914 
UPTA] 676 597 
UPTAS 674 $8 
eh O85 
UPTEX 28 0 
CTOR ; 36 | 73450 
as ae ise te 
bY J rx 
iL 74 
iz) : 
8778 34 
8974 * 
104 1 
2 378 
a 3\8 
694 4a 
WAS oF 
NSALS= 000040 oe 
XSOFFS= 000400 Ld 7955 
XSTRUE= oF 
SPATCH 5 34 
° = 16 19594 


Bi 3e 


some frome Srous ie he ae ne 
she . Se a 


S 
So 
ta 





SEQ 222 


31014 8 3111 31204 3131 3135 


WEVETSLS 


Es 





Ga eee 





a 





SEQ 223 
CZDCLA_DUP=11 DATA COMM. LINK TEST MACY11 30A(1052)_ 23=MAR-82 16:47 PAGE 226 
CZDCLA.P11 1 82 18:19 CROSS REFERENCE TABLE -- MACRO NAMES 
BCOMPL 1# 861959 4497 4502 4513 4846 
BERROR 1# 19598 
BGNAU 1# 19598 474 
BGNAUT 1#@ 19598 & 
BGNCLN 1 19598 4 
BGNDU 1 19598 471 
BGNHRD 1 19598 791 
BGNHW 1# 19598 eet 
BGNINI 1 19598 448 
BGNMOD 14 19598 1960 
BGNMSG ti 1b 4 7278 3053 3066s 3080-—s«s3100s«31119 
BGNPRO 1#@ 1959% 446 
BGNPTA 1# 19598 
BGNRPT 1# 1959% 4447 
BGNSEG 1# 19598 
BGNSET 1# 19598 
BGNSFT 1# 19598 
BGNSRV 1# 19594 3218 6357 6488 7613 
BGNSUB 1# 19598 
BGNSW 14 19598 
BGNTST 1# 19594 
BNCOMP 14 8619598 4535 4546 4589 
BNERRO 14 8619598 
BREAK 14 819598 6113. 6277 6573 6616 6633 7152 7885 
BRESET 1# 19598 
CKLOOP 1¢ 8 19594 
CLI 19634 2794 79 799 80 803 804 805 806 807 
2808 809 + 81 814 a $ oh a25 823 824 aoe 
827 1 o3 ; 839 84 841 94 84 
ot 8 5 b) 8 39 860 861 86 ase 
86 87 74 7 7 79 880 881 88 
887 eee 9 1 
11 1 13 1 1 17 21 
‘3 25 2 é3 37 rt r+ 1 
: 3 
CLOCK 14 95 
CLOSE 1# 19598 
CLRVEC 1# 8 19598 
Cc N 14 8 19598 
DESCRI \¢ 19898 0 
va ite Bi 
DISPAT 1¢@ 8619598 71 
DISPLA 1# 819598 
OOCLN 14 19598 4490 
DODU 14 8619598 
DORPT 14 819594 
ENDAU 1# 819594 $731 
ENDAUT 4 Hb 6 
ENDCLN 1 619598 4 
ENDCOM 14 8619598 
ENODU 14 8619598 4729 
ENOHRD 14 8619598 
ENDHw 14 8619594 Hy 
ENDINI 1# 8619594 56 


F 2 
CZDCLA DUP=11 DATA COMM, LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 227 
1DoMAR CBO 18:19 CRO NAMES 


174 sae0 43390 4555 4861# 4864 58724 5875 7956 


SESSRSSRSRRRARAA ADA 
Peete sees ete tet Sy 


CZDCLA.P11 CROSS REFERENCE TABLE -- MA 
ENDMOD 1# 19594 

ENDMSG 14 19594 3062 3076 3090 3110 3130 
ENDPRO 1 19598 4474 

ENDPTA 1# 19598 

ENDRPT 1#@ 19598 4457 

ENDSEG 1# 19598 

ENDSET 14 19598 

ENDSFT 1# 19598 

ENDSRV 14 19598 3243 6450 6522 7736 
ENDSUB 1#@ 19598 

ENDSW 1# 19594 

ENDTST 1# 19598 7898 

EQUALS 14 8619598 2130 

ERRDF 14 8 19598 

ERRHRD 1# 19598 

ERROR 1# 19598 

ERRSOF is 19308 5712 5730 5743 5786 6030 6068 6136 6289 6407 6429 6647 
ERRTBL 1# 19598 

ESCAPE 1# 19594 

EXIT 1#@ 19598 3134 4649 4701 4722 4744 4850 4910 
FEQUAL 4 9594 

GETBYT w 9594 

GETPRI a bad 

GETWOR Vit oF 

GMANIA 4 oF 

GAANID Ld 3416 4551 4860 5871 
GAANIL 4 

GPHARD lf 

GPRMA 1 

GPRMD 1 

GPRAL 1 

HEADER 1 

INLOOP 1 

IOSETU 1 

IOSTAR 1 

KT11 1 

LASTAD 1 

MANUAL 1 

MEMORY 

MSBYTE 

MSCHEC 

MSCNTO 

MSCOUN 


eed med eb eh a ed tt a ot od 4 a HH 


RREBRRBBPBRRBRBRER 





ed a, 
mon Oe fe ie te ee iD fie Bg 
mo SL : Lo i i a _ 
mu: G ee He a a as 
mens 7G fae Hie Be g TEE cos ctsre acver cious caste site 


SEQ 224 
7467 = 7485 

504 

78 

a 

41 
40734 47098 
47098 47308 


74684 74868 


SEQ 225 


23-MAR-82 16:47 PAGE 228 


CROSS REFERENCE TABLE -- MACRO NAMES 


MACY11_ 30A(1052) 


cage 


eecreenere 


Ra2 a2 e2e2eee 


CZDCLA_DUP=11 DATA 
194mAR 


CZOCLA.P11 


14 

114 

Abit 

1 47528 


7a 
ye 
oa 
94 








: 
1 
47% 
46574 46734 47098 


ae AAAS EES 
wv RSBTSE S BBo¥ ghaFoSd SI038 
- Seah al} 
¢ Beets > Bess 
wv - - Se ih 


: 
3 
SBBR283 3 
> 





~ 

ran 

a) SHRS 
rw 

® RRR 

= Cok see onal wm 
wn wom ~ 
o f~ - aru 
ee fet 3 ed 


bby tate ttt pete ttinte teh tN se 
SNSONSSoSON OK SAROO- 

be ta Ry bbb te Pty pete, be by bet eet entre te 
AR Se MNNAAUNOADO— VT 
or Sos = a Xn - So 

We RAAISLARSASRAe 


RENNES ROSONSSER ONS SR SSS 
wv iT a 








SSASTAILSSOLIASIATS— 

nRowoonnn CINK... OCD = NO 
nN NODBR.AOS a 
we Ors -— 


wer 
S-SSISAISAAASSTASIS ON opkrsiSoin Rt Teton 
Oneonw iw OD = wT Ne CO ~ wey wm 


wwwor wow wor -~r wewrwrwrwn 








SONIA 


_ 


Sor SSSS IBIS OSORSASOS 
SRAMSRASSSLSTRe 


_ 
www 
CUMIN. ee TAN ae wath 


Ininine JRA SShs wen 
x 


FESSRAAL BSAA GAR ee queue 2gre me 


w 
ert wwe 


gy22g3383°22 


wr~wrwrrs 


358835330335 328830 


22222 me & 
oS a —o os 


easye 8 eae BERS 


wv Ft ball 


“nYaA—wW-> yy & 2 
SYv8r4e-e2 97 ao a 


CZDCLA 
CZDCLA.P 


e 


— 
= 


wae 
ES 
Se. 
222 


S835 
mt 4 


eeeie 
Sesees 


ced aad od a ot 


SRSLSAS 
Seeeess 


rs 


Soom 
geeeees 


Son 
eees 


ee 


saaeees 


& Wave’ 


One 
~SU— 
N= a 


ey 
Se 


3 
g 


ab 


RESETS R— 
SEQAVSZE 


Sad eee skes 


11 DATA COMM, LINK TEST 
th 1S-ARSBS 18519 


i 





MACY11 30A(1052) 23-MAR-82 
CROSS REFERENCE TABLE -- 


te 
it 


Wee 


H 2 


~~ = 
RSeBReR 


=<" 


16:47 PAGE 229 
CRO NAMES 


ie 


me ie 
a 
che Fa8he 94890 
Pa Feel Rake 
32448 44584 46578 


as 


se tt, 


ce 





1 2 


CZDCLA 11 DATA COMM, LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 230 
cieeua Phi 1S-RARSEO 18:19 CROSS REFERENCE TABLE <= MACRO NAMES 


Leake ee ce we 
48644 





SN 
™m 

att 
Ane 
RU 
—— 
Ane 
Roe 
—eN 


we 
ve 


nD Greseecss 
oeeesus 
By 
ake 


nei 58754 79254 79354 7940 7945# 79514 79578 
mSstTs $0374 t3ce $36 # $380 31014 31208 32198 44484 44684 44848 46694 
nastan 33 84 64894 relae 184 
MSSVC a0 51 05 34 on 74 778 34 
1 1174 38311 122e = 31 1314 1 Se 1354 
37 4 4 5 507 5 55 5644 356 > 
1 oa 5 tee 824 9 978 Ae 7114 15 
35" 64 7. 904 94 700 1 398 
9 Hy 74 494 9418 3944 rth 41435 4172h# = 41 & & 
44918 449 44 tts ad 4501 45 45 45118 451 45228 45 
pry cr rr 4 ret 7 45 46224 463528 4 $63 * 
4673# 4674 46878 4 4 & 471 47238 4 4731 
%, 4 & : 48314 4835 4 8514 
49 : # 4969 $ oe 4 
306 53524 53 1, +t $, 5 


sexe 
ae 


ie 


aS 
we 
cos 
Pag 
& 
& 


338 
oOo 
2 
2f2 
Bh Sots 
= 


NM 
MINOW 


ae 
oO. 


AS & 


ae 
Saled 
Stee 


MSTSTL 


Ae 


ofa & 


ess 
5 
eye 
gxz 
& 
VE 
S 
ve 
3 
2 
See 
aoe 





Brose 
gies2c 
SSN 
= 2 
tases y 
taper 
See 
goes 
RESIS RENEE 
pera se 
gas 


ge 
CES BTS 









ATA on LIK TEST 


CZDCLA_DUP-11 
1 82 18:19 


panera 










3 
qo 
6 
N "Se 
POINTE i 19598 1971 
INTB 1# 19598 3 33 = 
PRINTF # 19598 
& 478 4824 ? 3 
5 8 5 
PRINTS hd Sof 549 5 3 
3789 18 8 4135 
PRINTX is 95 
14 19598 4544 
ADEF 14 19598 4496 4499 4504 
RFLAGS 1# 19594 
TPRI 14 1959% 4646 2686 
SETVEC 14@ 19598 4621 4 4638 
SLASH 1# 19598 
STARS 1# 8619594 
Svc 14 819598 
XFER 14 8 19594 +) 5# 46504 47024 
XFERF 14 19594 “ 
XFERT 14 1959% 7948 
- ABS. 046616 000 


ERRORS DETECTED: 0 
CZDCLA.CZDCLA,LST/CRF/SOL=SVC34R.MLB,CZDCLA.P11 
RUN-TI 


maT ane: HS 


5 
ts 
a 
4510 


4830 


47234 


MACY11_ 30A(1052) oes. mil. 47_ PAGE 231 
CROSS REFERENCE TABLE -- 0 NAMES 


Sieh 
on 


6918 


47654 





